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Global Definitions 
Local Definitions 
Driver Prologue Table 
Local Storage 


Port Vector 
LTSCTRL_INIT = Controller Initialization 
LTSHISTORY = Save aistory n the buffer 
LTSSTRENTRY = Entry to start driver 
LTSGETFFI = Get the FFI block and initialize FFI interface 
LTSSHUTENTRY = Shutdown entry pains 
TQE TIMER BUILDING AND WAITING ROUTINES 

SSHUT DONE = Datalink shutdown complete entry 
SASYNTERR = Process async errors from datal ink 
SSETENTRY = Set a new multicast message 
SUNIT_INIT = Unit Initialization 
suce INIT = Initialize a terminal UCB 


L 0 
Pier howaenanee - Change flow control 


op input stream into class driver 


LTSFFI_R FAST Interface Receive Complete routine 
rao SSAGE 


LOT DATA 
TS RECEIVED 


S 
I 
OT DATA 
EN FILLING IN SLOT FIELD 
EP SE TO RECEIVED MESSAGE 
reate a CSB 

Get Concentrator State Block 
allocate a CSB 

LTSCREATEUCB = Create an LT UCB 
LTSDESTROYUCB = Destroy an LT UCB 
LTSALC_UCB = Allocate New LT UCB 

TSHANGUP_UCB = Cause Terminal Hangup On UCB 
DISCONRECT = Port Disconnect 


~ 
KM OOMNDNWoO 


D = Declare circuit dead 
RC = Transmit stop message 
MER = Start Timer 

- Timer Service Routine 

- Transmit a message 

bel 


ONE = FFI Transmit done routine 
Pos 


D 
DONE = Garbage transmit posting routine 


PPP PREPS Ee 
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TITLE FUORI YER = Local Area Terminal Port Driver 
-IDENT ‘Vv04-002' 


3 #AvO002 


LARARAARARAASALAALALALA SALE SELES ESSERE TERETE REST REE ESERIES TCT cece cece cea fT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


7* 
7* ® 
7* * 
3* a 
3* ® 
3* ® 
:* THIS SOFTWARE IS FURNISHED UNDER A |.ICENSE AND MAY BE USED AND corre * 
3* ONLY IN ACCORDANCE WITH THE TERM: OF SUCH at SE AN . WITH THE * 
:* INCLUSION OF THE ABOVE corer NOTECE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OF OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF ‘HE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
3* ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
7* ® 
3* ® 
3* ® 
3* te 
7* ® 
3* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOoooooooooooooooooooooooo 


ARBAB RAARARARALAALELALELASELE ELSA ERLE SERRE ERS R SERRE EERE SES EERE EERE SERS SY 


SooOoCoCOCOoOoOoooQoooooooCooooooO 
SOoOOoooooooooooooooooooooooo 


o 


Do not roaeet items from this List. Add X when item is done. 
to be done 


= LATCP should be allowed to specify the Ethernet device. 
- fix slot stop and circuit stop code for correct message format 
including reason code and text. 
- transmit two slots/message from host transmit loop 
allocate and be able to send additional buffers based about the servers 
value of XTRABFRs (in START message). 
send credits in DATA_B slots. 


COOQOCOCOSSOSSSSSSSSOSCOOOOOOOOOOOOOOOOOOOOO 
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‘ets 
09 4) ITITIIIILITITI IIT TI TILT L TTT TiTi Ti iiiiTTiiiiiiiiiin PARRA ASALALALALLL SLE LETS | 
;* * 
$00 rk 3* Copyright (c) 1982, 1984 e 
B38 rf: :* by digital equipment corporation, maynard, mass. * 
é 4 
000 rt :* this software is furnished under a License and may be used and copied * 
0000 47 3 my in accordance with the terms of such License and with the * 
44h ‘3 :* inclusion of the above copyright notice. this software or any other * 
00 49 ;* copies thereof may not be provided or otherwise made available to any * 
000 29 :* other person. no title to and ownership of the software is hereby * 
8050 3 :* transferred. * 
3 ® 
0000 38 :* the information in this software is subject to change without notice * 
0000 34 ;* and should not be construed as a commitment by digital equipment * 
0000 2? 3* corporation. * 
0000 6 ;* * 
44 57 ;* digital assumes no responsibility for the use or reliability of its * 
4 8 ” software on equipment which is not supplied by digital. ® 
3 & 
4364 60 FRAN ARERR AREA ARETE AAA E EAE AA AAR AAA AAA AETHER TERRA TAAAAAAAREKAA ERE eee ee 
0 61 ; 
0000 6¢ p++ 
0000 635 ; Facility: 
0000 64 ; x 
0000 65; VAX/VMS Terminal Driver 
0000 66 ; 
0000 67 ; Abstract: 
0000 68 ; ’ 
44 $° 3 Local Area Terminal Port Driver 
0000 fi 3 This is an alternate port driver for use with the VMS terminal 
0000 i : driver. It forms the host end of the Local Area Terminal (LAT) 
0000 73; protocol and communicates with a LAT concentrator to provide 
4 ee $ terminal communications on a local area network. 
0000 76 ; This driver per foras 10 using a datalink driver via the FFI 
0000 7; mechanism. Its connection with the datalink driver is controlled 
0000 78 ; by a program called LATCP. 
0000 79 ; 
0000 80 ; 
0000 82: Auth 
; Authors: 
$609 He 3 
44 84 ; Bruce Mann 
000 o2 3 Darrell Duffy 
4 o : Joe Marchesani 
000 a Rich Bailey 
0000 s 3 re 
44 i 3 Revision history: 
3 JAY0002 0000 ol 3 v04-002 JAY0002 John A. Ywoskus 17-Dec-1984 
3 JAY0002 0000 § : Add CPU dispatch table to determine max slots/circuit. 
; JAY000 0000 a a Fix odd length reject slot format. 
; JAYOOO it 43 
3; JAY0001 000 oe 2 v04-001 JAY0001 John A, Ywoskus 28-Sep-1984 


he 
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; JAYO001 0000 6; Add code to not set ,* flow control characters if 

: JAYO001 0000 as terminal is set /PASSA 

; JAYOOO1 0000 S 3 Add MicroVAX II to CPU RATING. 

3; JAY0001 44 196 : Mark terminals OFFLINE when called at DISCONNECT entry. 
0000 177 :-- 
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-SBTTL Global Definitions 
«ENABLE SUPPRESSION 


LTDRIVER - Local Area Te a 
v0u=008 Global Definiti oon eo Page 4 


r 
LAT.BUGSRCJLTDRIVER.MAR; 1 (4) 


os 


Global definitions 


LAT communication area defs 
Ast control block 
; Define adapter 
Define crb 
Complex buffer 
Define dd ‘ 
Define device characteristics 
Define dpt 
Dynamic memory block codes 
Fast Interface block 
block definitions 
IPL Levels 
Mutex offsets 
Object’s Rights Block offsets 
Process control block 
Process header block _- 
Processor register definitions 
Resouce wait codes 
Timer queue elements 
Define ucb 
Define vector for crb 


Pe Se Se Se Ge Se Ge Ge Se Se Ge Se Se Ge Ge Ge Se Ge Se Se Se 
wn" 
°o 
3 
x 


Define terminat driver symbols 
Define terminal kypes ’ 
Define extended characteristics 
Define terminal driver macros 

Define terminal driver symbols 


<r 
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68 5 -SBTTL Local Definitions 
a0 3 Macros 
4 «MACRO | Samet 
0000 iif ne <.@5>, .BLKB <4-<.83>> ; align to longword boundary, if needed 
4h -ENDM ALIGN_LONG 
a 
000 ; Conditional assembly parameters 
0000 og 
00000001 $009 LT_HISTORY = 1 ; keep history of received/transitted ni fra 
0000 3388 LT_CRED_ CHECK = 1 ; validate credit total for UCBs 
it 3788 LT_XMT_CHECK = 1 ; validate transmit frame slots dynamically 
0000 ; 
44 3 Constants defined for the VMS LAT host implementation 
00000007 0000 TTY ¢C_BELL = 3; Control_G (*G) ... bell character 
00000003 0000 LATSC_VMS = ; VAX/VMS product type code 
00000004 0000 LATSC_VMS_VER = ; Part of VAX/VMS v4.0 
00000008 0000 2 LATSC_IPL = : Fork IPL to synchronize this driver 
00000014 0000 LATSC_PROGRESS = ; Must make progress every 2u msgs 
00000002 0000 LATSC_XMT_BUFFERS ; Number of transmit buffers 
00000001 0000 LATSC_MAX_RCRED = ; Maximum number of credits extended 
00000050 0000 2 LAT$SC_UCB_BUFSIZ = 8 ; Size of UCB buffering 
00000004 0000 24 LATSC_UCB_SLOTSIZ = ; Size of formatted slot buffer in UCB 
00000002 0000 Ste LATSC_UCB_TIMOUT = g ; Allow 2 seconds before deleting UCB's 
00000020 0000 45 LATSC_MAX_CSBS_ = 3 ; Maximum number of circuits handled 
00000040 0000 246 LATSC_MAX_SLOTS = 64 ; Maximum slots in a message, this also 
0000 47 ; implies max connections per circuit 
00000005 0000 48 LATSC_HI_VER = 5 ; Highest supported LAT protocol version 
00000005 0000 49 LATSC_LO VER = 5 ; Lowest supported LAT protocol version 
000005 0000 50 LATSC_CUR_VER = 5 ; Current LAT protocol version 
00000000 0000 51 LATSC_CUR_ECO == 0 ; Current LAT protocol ECO version 
000005DC¢ 4h 26 LATSC_MAX_MSGSIZ = 1 ; Maximum Data Link message size 
OOOOOOFF 0000 5 LATSC_MAX_SLOTSIZ = ; Maximum Slot size 
000040 48 54 LATSC_LOC_LEN = $8 ; Maximum Length of LOCation field 
00000020 0000 55 LATSC_GRP_LE = 32 ; Maximum number of group codes 
00000008 0000 56 LATSC_SVC_LEN = 8 ; Maximum number of service classes 
0000006 Bas 57 LATSC_MAX_SERVICES = 6 ; Maximum number of services 
000009 0000 58 LATSC_MULTIADD1 = *x0009 ; LAT Multicast address 
838 ita 4 59 We er et = mT : eae 
O00F 60 ATSC"MULTIADDS = “XOF : one 
00000002 000 61 LATSC_HOST_TIMER = 2 ; Host circuit timeout value (in SECs) 
stale 44 $6 LATSC_MULTT TIMER = 10 ; Multicast message timer — 
0000 8 00 6 LATSC_CIR_TIMER = 90 ; Host preferred circuit timer (in MS) 
004(4B4 00 64 LATSC_SHUTDELAY = 5*1000*1000 ; Delay time = 1/2 second 
0000000A 38 r# LATSC_KEEP_CSB = 10 ; Keep last 10 CSBs 
0000 $9 : F . : 
0000 63 : Port driver ucb extension to class driver structures 
0 2 
$8 71 SDEFINI UCB GLOBAL 
00000134 000 72 . = UCBSC_TT_LENGTH 
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UCBSB_LTLLATSTS -BLKB 


<LTHANGUP, 1,M>= 
<LT“DEAD, 1,M>= 


<LT“BOUND, { ,M>= 
<LTLINPUT, 1 ,>= 
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align to longword boundary 

CSB address 

Link for dead ucbs 

; Pointer to LAT type ahead buffer 
; Remote slot index number 

; Local slot index number 

; Data waiting flags 


3* Output data waitin 
3* Send current flow control values 
3* Send abort request 


; Status for local terminal connection 


:* We are hangin up the slot . 

3* We have Linked the UCB on deadlist 
:* We had an overflow on input (XOFF) 
:* Terminal is bound, don't delete UCB 
;* Input stream in progress 


; Slot state 

:* State is starting 

:* State is running 

:* State is stopping (send stop slot) 
:* Kill UCB immediately 


Reason for stopping slot 
Available credits for this slot 
Credits extended to concentrator 


Slot size (negotiated) 
: Size of UCB buffering 
Current character count 


-BLKB : 
UF  .BLKB LATSC_UCB_BUFSIZ ; Startio data buffer 


; Startio data buffer end 
; Length of block 


Credits to be returned to concentrator 


_ 


dense eneseteiesinotana again . ——- 
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0000 13 | 
i 14 34 ; 
i 13 ; Circuit state block | 
0000 13 : For each concentrator, one virtual circuit is maintained. | 
000 18 ; Protocol state is maintained in circuit state blocks. | 
0000 19 ; The CSB addresses are stored in a vector starting 
0000 0; at CSB_TABLE. 
44 1 3° 
$8 soerimt cso on 
0000.004 0000 4 -BLKL 1 
00000008 0004 5 -BLKL 1 
0008 6 SDEF CSB_W_SIZE -BLKW 1 ; Size of this block in bytes 
000A 7 $DEF = CSB“B-TYPE -BLKB i Type of block 
0008 8 SDEF CSB_B_STATE -BLKB 1 ; Virtual circuit state: 
000C 9 SEQU CSB-C"STATE_HALT 0 3* Circuit halted state 
000C 0 $SEQU CSB_C_STATE_START 1 :* Circuit starting state 
i$ 3! SEQU CSB_C_STATE_RUN 2 i* Circuit running state 
49495 338 ; Counter area = must follow standard block header: 
000¢ 335 é ASSUME GHBST_CSBCTR EQ . 
peve $39 SDEF CSB_2Z_LCB -BLKB LCB_C_LENGTH ; Circuit block counter area 
Bore 339 : Server name area - must immediately follow counter area 
OO1C 340 $pEF  CSB_B_SERVER .BLKB 1 : Length of server name | 
001D 41 SDEF CSB_T_SERVER -BLKB GHBSK_NAMELEN ; Server name tield 
88 4 ri} SDEF CSB_B_REFC -BLKB 1 ; Number of UCBs attached to this CSB 
op : rt: : Destination Ethernet address - must immediately follow server name area | 
QOgE 346 $DEF § CSB_2_DST -BLKW 3 ; Concentrator physical address 
0034 48 SDEF CSB_Q_xBUFQ -BLKQ 1 ; Current transmit buffer queue 
003C 49 SDEF CSB_Q_XWAITO -BLKQ 1 ; Transmit buffers waiting queue 
0044 350 $DEF CSBIL-xCxB -BLKL LATSC_XMT_BUFFERS ; Transmit CXBs in progress F 
004C 51 SDEF CSB_L_STOPREASON .BLKL 1 ; Address of the stop reason biock : 
0050 26 SDEF CSB_W_TIMEOUT .BLKW 1 : Timeout cell for C38 ; : 
v052 55 SDEF CSB_W_XMTTMO -BLKW 1 ; Timeout count for retransmit : 
0054 54 SDEF CSB_W_PROGRESS .BLKW 1 ; Progress counter 3 
0056 55 SDEF CSB_W_PROGSEQ .BLKW 1 ; Transmit error control for progress 3 
8838 2$ SDEF CSB_B_XATBSY -BLKB 1 ; Transmit busy and count of waiters : 
005 SDEF CSB_B_XMTCNT -BLKB 1 . Count of buffers to transmit : 
OSA $58 SDEF = CSB“BTXCKB INK “LKB I ! XCKB index | : 
O88 aR SDEF CSB-B- SPARE -BLKB 1 3 SPARE : 
a93¢ e ; Start of circuit header as it appears in trousmitted messages | : 
005C $f SDEF CSB_T_CIRCHOR ; Lat circuit header ; 
005C 64 SDEF CSB_B_FLAG -BLKB ; Message flags byte : 
050 65 SDEF CSB_B_NUM_SLOTS .BLKB 1 ; Number of slots é 3 
OSE 66 SDEF CSB-W_REMTO ; Remote virtual circuit id F 
bee 67 SDEF CSB_B_REMIDN -BLKB ; Remote virtual circuit id number : 
5F $8 SDEF CSB_B_REMIDS -BLKB 1 ; Remote virtual circuit id sequence : 
0060 369 SDEF CSB-W-LOCID > Local virtual circuit id 3 
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060 70 SDEF CSB_B_LOCION -BLKB 1 ; Local virtual circuit id number 
be 71 SDEF CSB_B_LOCIDS -—BLKB 1 ; Local virtual circuit id sequence 
6 Le SDEF CSB_W_XSEQ ; Transmiter error control 
06 75 SDEF CSB_B_XSEQ -BLKB 1 3; Sequence number being transmitted 
$e 74 SDEF CSB_B_XACK -BLKB 1 : Wighest sequence number received 
bee ? SEQU CSB_SUCIRCHDR <.=CSB_T_CIRCHDR> ; Size of header 
bee aA : End of circuit header 
0064 79 $DEF CSB_W_RSEQ ; Sequence number to receive 
064 QO SDEF CSB_B_RSEQ -BLKB 1 ; Sequence number to receive 
065 1 SDEF CSB_B_RACK -—BLKB 1 ; Highest sequence number acknowledged 
bee ; SDEF CSB_W_TIMRESET .BLKW 1 ; Timeout reset value 
006 SDEF CS3_B_INX ~BLK 1 ; CSB table index 
Open 4 SDEF CSB_B_MAX_SLOTS .B 1 ; Maximum number of slots (negotiated) 
O6A 5 SDEF CSB_W_MAX_MSGSIZ .BLKW 1 ; Maximum message size (negotiated) 
ppee § SDEF CSB_C_FIXCENGTH ; Length of fixed block 
9945 38 : UCB List area (size = 4*min(lat$c_max_slots,server_slot_count) ) 
006C 390 p ALIGN_LONG ; align to tongword boundary 
006C 91 SDEF CSB_L_UCBLST 
006C 335 
006c 839 SDEFEND CSB 
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0 95 
600309 
8 4 : Terminal overflow input buffer definitions 
000 35 ; The terminal overflow buffer is only used when a call is made to 
0 400 ; the XOFF routine to stop the input flow. The overflow buffer is 
$ $3 ; allocated and the rest of the input data is copied to the overflow 
0 4 ¢ : buffer. When we are resumed at XON, the data from the input overflow 
44 403 ; buffer is dumped into the class driver. 
00 404 ; 
0000 405 ;- 
4 £06 
0000 40 SDOFFINI INB GLOBAL 
0000 408 
0000 409 SDEF INB_W_BOFF -BLKW 1 ; Offset to start of data 
0002 410 S$DEF INB_W_BCNT -BLKW 1 ; Count of data remaining 
0006 411 S$DEF INB_L_ SPARE -BLKL j ; Spare longword 
0008 tig SDEF INB_W_SIZE -BLKW 1 ; Size of structure 
QOOA 413 SDEF INB_B_TYPE -BLKB 1 ; Type of structure 
000B 414 $DEF INB_B_SPARE BLK 1 ; Spare byte 
QOOOC 415 SDEF INB_C_LENGTH ; Size of structure header 
QO0OC 416 
000C 417 SDEFEND INB 
0000 418 
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Receive buffer offsets and bit definitions 


eee 


The format of receive and transmit buffers is identical for fields 
Starting with and et hg the destination address field. Ease of 
implemenatation dictates that the offsets be defined relative to 
the start of the buffer. 


These are the offsets into the architecturally defined portion of 
the receive buffer itself. 


IAWIWIAIOROPOroRononononony = 4 
WR —OCODNOULWN—0O Of 
Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Be 
a + 


SDEFINI RCV GLOBAL 


SESS LLL LRRD 


0 
0 
0 
0 
0 
0 34 
00000000 0 35 .=0 ; 
0 36 SDEF RCV_T_DATA ; Start of data is right here 
: * SDEF RCV_B_FLAG -BLKB 1 ; Flags byte and message type 
! i3 ; Flag bits: 
1 41 _VIELD FLAG,0,<- :* Flags byte bit definitions recy & xmit 
1 4g <RRF,1,M>,=- :* Response requested flag 
1 4 <MASTER 1,M>,- ;* Remote station always sets this flag 
1 44 <MTYPE ,6,M>,- :;* Message type bits 
1 445 > 
0001 446 : 
0001 447 ; Message types: 
0001 448 ; 
0001 449 $EQU MTYP_C_RUN 0 3* Run message 
0001 450 SEQU MTYP_C"START 1 :* Start message 
0001 451 S$EQU MTYP-C"HALT 2 3* Halt message 
44 128 SEQU = MTYP_C_CONF 10 3* Configuration message 
0001 454 S$DEF RCV_B_NUM_SLOTS .BLKB i ; Number of slots in buffer | 
0002 455 $DEF RCV_W_DSTID ; Destination virtual circuit id 
0002 456 SDEF RCV_B_OSTIDN -BLKB ; Destination virtual circuit id number 
0003 457 S$DEF RCV_B_DSTIDS -BLKB 1 ; Destination virtual circuit id seq 
0004 $38 SDEF RCV_W_SRCID ; Source virtual circuit id 
0004 459 S$DEF RCV_B_SRCION -BLKB 1 ; Source virtual circuit id number 
0005 460 SDEF RCV_B_SRCIDS -BLKB 1 ; Source virtual circuit id 
0006 461 3 sequence number 
0006 186 
8008 463 SDEF RCV_B_SEQ -BLKB 1 ; Buffer sequence number 
0 464 SDEF RCV_B_ACK -BLKB 1 . Sequence number acknowledgement 
Bobs ret SDEF RCV_T_MDATA ; Start of type dependent data 
0008 46 SDEFEND RCV 
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000 198 
209 14 ; Define START message offsets (used for both xmits and recvs) 
84 258 | SDEFINI STRT GLOBAL 
00 474 SDEF STRT_WLMSGSIZ .BLKW 1 ; Data Link frame size 
00 475 SDEF STRT_B_PVER -BLKB 1 3 gireuse greteces version 
00 $°8 SDEF STRT_B_PECO -BLK 1 ; Circuit ng change order level 
004 477 SDEF STRT_B_MAXSLOTS .BLK 1 ; Maximum simultaneous slots 
0005 $78 SDEF STRT_B_OL_BFRS .BLK 1 ; Number of extra rcv bfrs in server 
Op6 479 $DEF STRT_B_CIR_TIMR .BLK 1 ; Local circuit timer in milliseconds 
4 480 SDEF STRT_B_KPA_TIMR .BLK 1 ; Local keep alive timer in seconds 
8 481 S$DEF STRT_W_FAC_NUM .BLK 1 ; Facility number 
OOA 4 $ SDEF STRT_W_PROB_TYP .BLKW 1 ; Product type code 
pone ; Z SDEF STRT_C_LENGT ; Length of fixed portion of message 
48 i8s ; Start of variable Length parameters 
000C rt f4 $peEF STRT_B_VAR Start of variable portion of start message 
QOOC 488 SDEF | STRTBTNODE_LEN .BLKB i ; Destination node name Length 
000D 489 SDEF STRT_T_NODE™ -BLKB GHBSK Nahe LEN Destination node name text 
001D 490 SDEF STRT_B_SYS_LEN .BLKB 1 Source node name Length 
QOO1E 491 SDEF STRT_T_SYS” -BLKB GHBSK _NAMELEN. Source node name text 
it33 492 SDEF STRT_B_ID_LEN .BLKB 1 5 Source node descriptor length 
OO2F 493 SDEF STRT_T_ID -BLKB GHBSK_ IDLEN ; Source node descriptor text 
OO6F 494 SDEF STRT-B_LOC_LEN .BLKB 1 : Source location Length 
0070 495 SDEF STRT_T tO -BLKB LATSC_LOC_LEN ; Source location text 
00BO 496 SDEF STRT_B_PAR -BLKB 1 ;"Parameter code 
00B1 497 SEQU STRT_C"VAR ATEN <.°STRT_B_VAR> ; Length of variable portion of start 
0081 498 3; = message 
0081 499 SDEFEND STRT 
0000 500 
0000 501 ; 
0000 288 3; Define STOP message offsets 
0000 503 ; 
0000 504 SDEFINI STOP GLOBAL 
0000 505 SDEF STOP_B_RCODE -BLKB : Circuit disconnect reason 
0001 506 SDEF STOP_B_RLEN -BLKB ; Reason Length in bytes 
0002 507 SDEF STOP-T-REAS ; Reason ASCII text 
0002 508 SDEFEND STOP 
0000 509 
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Transmit buffer offsets and bit definitions 


: The buffer header is defined to be the same as that used by 
: the Ethernet datalink drivers. 


8 

rs) 

4 

: } SDEFINI CXB GLOBAL ; Transmit complex buffer 
1 : Define the transmit/receive offsets in the CxXB 

§ *_ = CXBSL_END_ACTION 

¢ SDEF CRBSL_T_ENDADR .BLKL 1 ; End address of data to transmit 
§ = CXBSW_LENGTH 
8 
9 
0 
4 
5 
6 


: ASSUME CXBSW_OFFSET EQ CXBSW_LENGTH+2 
SDEF § CXBS$L_T_CSB : CSB address 


USUI UPVSUSUSVSUSVSTUS SISOS 
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. = CXBSL_IRP 
SDEF CRBSL_T_SAVE -BLKL 1 ; BOFF & BCNT save area 
SDEFEND CXB 
39 : Start of architecturally defined offsets 
38 : SDEFINI XMT GLOBAL 
40 . = CXBSC_HEADER = <6+6+2> 
‘] SDEF XAT_G_DST -BLKW 3 ; Destination address 
rk . = CXBSC_HEADER 
44 SDEF XAT_T_DATA ; Start of transmitted data 
ig SDEF XMT_B_FLAG -BLKB 1 ; Flags byte and message type 
47 ; 
rf ; Run message format: 
50 $DEF © XMT_B_NUM SLOTS .BLKB 1 ; Number of slots in buffer 
51 SDEF XMT_W_DSTID ; Destination virtual circuit id 
26 SDEF XMT_B_DSTION BLKB 1 ; Destination virtual circuit id number 
55 SDEF XMT_B_DSTIDS LKB 1 ; Destination virtual circuit id seq 
$¢ SDEF XMT_W_SRCID ; Source virtual circuit id 
5 SDEF XMT_B_SRCIDON -BLKB 1 - Source virtual circuit id number 
2$ SDEF XMT_B_SRCIDS -BLKB 1 ; Source virtual circuit id 
5 3 sequence number 
35 SDEF XMT_B_SEQ BLKB 1 :; Buffer sequence number 
60 SDEF XMT_B_ACK -BLKB ; Sequence number acknowledgement 
$3 SDEF XMT_T_MDATA ; Start of RUN message data 
65 ; 
rf: 3; Multicast (CONFIGURATION) message format: 
66 : . = KMT_B FLAG#1 aac 
67 SDEF XMT_B_MC_CIR_TIMER -BLKB 1 : Circuit timer 
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~SEP=1984 11:4 
XMT_B_MC_HI_VER -BLKB 1 ; Highest supported protocol version 
XMT_B_MC_LO_VER -BLKB 1 ; Lowest supported protocol version 
XM7_B_MC_CUR_VER -BLKB 1 ; version of this message 
XMT_B_MC_CUR_ECO -BLKB 1 ; eco of this message 
XMT_B_MC_INCARN -BLK 1 ; Message incarnation 
XMT_B_MC_CHG_FLAG -BLKB 1 ; Changed fields in this msg 
VIELD XMT_CHFLG,0,<= 
GROUP, 1,M>>- ;* NODE group codes changed 
<NDESC,1,M>,= 3* NODE descriptor changed 
<SVCNAM,1,M>,- :* Service name/number changed 
<RATE,1,M>,= :* Service ratings changed 
<SDESC,{1,M>,- 3;* Service classes changed 
aReaste ss :* sary ice classes changed 
<OTHER, 1,M>,~ :* One of the OTHER fields changed 
XMT_CHFLG_M_ALL <*“XFF> :* ALL codes changed 
XMT_W_MC_MSG SIZ -BLKW 1 ; Maximum frame size 
XMT_C_MC_LENGTH <.*XMT_T_DATA> ; Size of fixed part of multicast me 
XMT_B_MC_SET :_ Start of LATCP set portion of multicast msg 
XMT_B_MC_MULTIMR -BLKB 1 ; Multicast message timer 
XMT_B_MC_STATUS -BLKB 1 ; Node status 
XMT_B_MC_GRP_LEN -BLKB 1 ; Number of group codes 
XMT_T_MC_GROOP -BLKB LATSC_GRP_LEN ; Group code ‘field 
XMT_B_MC_NODE_LEN -BLKB ; Node name length 
XMT_T_MC_NOD ~BLKB GHBSK_NAMELEN ; NODE name 
XMT_B_MC_NUM_SVCS -BLKB 1 ; Number of services 
XMT_B_MC_RATE -BLKB 1 3; Service — 
XMT_B_MC_NAME_LEN -BLKB 1 ;_ Service name length 
XMT_T_MC_NAME ~BLKB GHBSK_NAMELEN ; Service name 
XMT_B_MC_ID_LEN -BLKB 1 ;_Length of Identification field 
XMT_T_MC_ID -BLKB_ GHBSK_IDLEN ; Identification field 
XMT"C"MC"SVC_SIZE <.-XMT_B_MC_RATE> ; Size of each service field 
XMT_T_MC_MORE_SVC ~BLKB = <<LATSC_MAX_SERVICES-1>*XMT_C_MC_SVC_SIZE> 
XMT_B_MC SVC_LEN -BLKB 1 ; Number of service classes 
XMT SYC -BLKB LATSC_SVC_LEN ; Service classes 


XMT"C"MC"TOTAL <.-XMT_T _DATA> 
ASSOME RMT_C_MC_TOTAL~LE LATSC_MAX_MSGSIZ 


XMT_C_HDRLEN = <XMT__MDATA = XMT_T_DATA> 

: “ of header 
XMT_C_MAXDATA <LATSC_MAX_MSGSI2 - XAT_C_HDRLEN> 

; Data in slots 
XMT_C_MAXLEN  <LATSC_MAX_MSGSI2 + XMT_T_DATA> 

: Total sTze of a buffer 
SDEFEND XMT 


Length of total message 
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00 8 621 3+ 
3 g § ; Buffer slot offsets 
8 624 ; Each slot is formatted identically in both 
B38 ? > transmit and receive buffers as defined below. 
i: re 
44 629 
4 630 SDEF SLT_T_START ; Start of slot 
000 631 SDEF SLT_B_DSTID -BLKB 1 3; Destination slot ID 
BR0) 6 § SDEF SLT_B_SRCID -BLKB 1 ; Source slot | 
0 § 635 SDEF SLT_8_ COUNT -BLK 1 ; Character count in slot 
000 634 SDEF SLT_B_REAS ; Stop/reject slot reason (low nibble) 
BOR 635 SDEF SLT_B_CRED ; Credits extended (low order nibble) 
000 636 SDEF SLT_B_TYPE -BLKB 1 3; Slot type (high order nibble) 
0004 637 ; STOP/REJECT reason codes: 
0004 638 SEQU §LT_C_USD 1 ; * User requested disconnect 
0004 639 SEQU  SLT_C_SYS ¢ 3; * System shutdown 
0004 640 S$EQU SLT_C_INVSLOT ; * Invalid slot received 
0004 641 SEQU SLT_C_INVSVC 4 ; * Invalid service class received 
0004 otg SEQU SLT_C_RESOURCE 5 ; * Insufficient resources 
0004 64 ; STot type codes: 
0006 644 $EQu §LT_C_DA SLOT <*x00> : * DATA_A slot 
0004 645 S$EQU SLT_C“STR_SLOT <*x09> : * START slot 
0004 646 S$EQU SLT_C"DB_ SLOT <*XOA> ; * DAT sl 
0004 647 $EQU SLT-C"ATT_SLOT <*X0B> 3 * ATTENTION slot 
0004 648 SEQU SLT_C_REJ SLOT <*x0C> 3; * REJECT slot 
0004 649 SEQU SLT_C_STP-SLOT <*x0D> ; * STOP slot 
0004 650 SDEF SLT_T_D ; Start of slot data 
0004 651 
0004 636 3 : 
0004 6535 ; Start slot data definitions 
0004 654; 
00000004 0004 655 . = SLT_T_DATA 
0004 656 $DEF SCT_B_SVCC -BLKB 1 : Service class 
0005 657 $EQU SLT_C_SVC_INTT 1 3; * Interactive Terminals 
0005 638 SDEF SLT-B_AT_SLTSIZ .BLKB 1 ; Maximum Length of attention slot 
0006 659 SDEF SLT_B_DT_SLTSIZ .BLKB 1 3; Maximum Length of Data slot 
0007 660 S$DEF SLT-B_DST_NAMLEN .BLKB 1 3; Length of destination slot name 
Baee 661 SDEF SLT_T_OST_NAME .BLKB GHBSK_NAMELEN 
01 666 SDEF SLT_B_SRC_NAMLEN .BLKB 1 ; Length of source slot name 
0019 665 SDEF SLT_B_SRC_NAME .BLKB8  GHBSK_NAMELEN 
8 2 64 S$EQU SLT"S-START SLOT <.-SLT_T_DATA> ; Length of Start slot 
665 SDEF SLT-B_ PARAMS , Start of parameter area 
9 666 SEQU  SLT_C_START_FLAG 1 3* Start slot parameter flag is code 1 
9 66 -VIELB SLT"FLAG,0,<- 
9 968 <REMOTE,1,M>,- :* Remote Line 
029 66 <LOGIN. {,M>,- 3* Disable auto-login 
3 9 ° 9 <BIND,1,M>,- 3* Terminal UCB is bound to server 
9 7 > 
029 67 
3 9 673; 4 
4 ere ; DATA_B slot data definitions 
00000004 p 9 676 = SLT_T_DATA 
4 677 $DEF  ~SCT_B_DB_CONTROL -BLKB 1 ; DATA_B slot control. flag 
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rea Terminal Port Driver -ie 
initions SEP 
67 -VIELD SLT_DB,0,<- 
78 Hi ee 
680 <1FDIS,1,M>,- 
681 <OFENA,1,M>,- 
6 § <OFDIS,1,M>,= 
? ? <BREAK,1,M>,- 
685 SDEF SLT_B_DB_OFOF -BLKB 1 
6 § SDEF SLT_B_OB_OFON -BLKB 1 
687 SDEF SLT_B_OB_IFOF -BLKB 1 
688 SDEF  SLT“B"DBTIFON .BLKB 1 
689 $EQU SLTZS"DBTLEN <.=SLT_T_DATA> 
690 $EQU SLTZS"DBTSLOT <.-SLTZT“START> 
$93 
638 3; ATTention slot data definitions 
695 . = SLT_T_DATA 
696 SDEF SCT_B_ATT_CONTROL -BLKB 
697 _VIELB SCT_ATT,0,<= 
698 <,37,° 
699 <ABORT,1,M>,= 
700 > 
701 $EQU  SLT_S_ATT_LEN - <.-SLT_T_DATA> 
19 $EQU SLTIS"ATTISLOT <.-SLTZTSTART> 
704 ; 
pe 3; STOP slot data definitions 
707 . = SLT_T_DATA 
703 Spf SCT_B_STP_RLEN .BLKB 1 
709 $EQU SLTZS"STPTLEN <.-SLT_T_DATA> 
710 $EQU SLTS“STPTSLOT <.-SLTZT“START> 
711 SDEF = SLTITISTPTREAS 
oe 
713; 
at 3; REJect slot data definitions 
716 . = SLT_T_DATA 
.1 SDEF CT_B_REJ_RLEN 
718 $EQU SLTZS"REJ"LEN <.-SLT_T_DATA> 
719 $EQU SLTZS"REJ“SLOT <.-SLTZT“START> 
160 SDEF SLT_T_REJ_REAS 
722 SDEFEND SLT 
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3; Length of Attention data 
; Length of Attention slot 


; Input-off 
; Input-on flow character (from host 
; Length of DATA_B data 
; Length of DATA_B slot 


; Length of fixed REJ slot data 
; Length of fixed REJ slot 
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Turn on flow control of keyboard i 
Turn off flow control of keyb inpu 
Output flow on 
Output flow off 
Break condition detected (recv slo 


Output-off flow char (from a 


Output-on flow char (from keyboard 
flow character (from hos 


ATTENTION slot control flag 


RESERVED 
Abort (flush pipe) 


STOP slot reason Length 

Length of fixed STOP slot data 
Length of fixed STOP slot 

STOP slot reason (variable) 


REJ slot reason length 


REJ slot reason (variable) 
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00 724 ; 
725 ; Local macros 
38 
809 7 8 -MACRO INC_CTR BASE, TYPE=L, ?L 
000 7 INC’ TYPE BASE : Increment counter 
00 730 BNEQ L 3; Br if no overflow 
bo 4 1 : DEC' TYPE BASE ; Else, latch at maximum 
09 f 5 END INC_CTR 
099 735 .MACRO ADD_CTR BASE1, paste. TYPE=L, ?L 
7 6 ADD’ TYPE BASE1.BASE : Add counters 
4s 7 BCC L ; Br if no overflow 
44 f 8 : MNEG' TYPE #1,BASE2 3; Else, latch at maximum 
0900 oy ~END ADD_CTR 
8000 og Amana SDISPATCH, INDX, VECTOR, TYPE=W,NMODE=S“*#, ?MN, ?MX,2S,7SS, 2722 
0000 744 
0000 745 -MACRO $DSP1,$DSP1_1 
0000 746 - IRP $DSP1_2,$DSP1_1 
0000 747 $DSP2° $DSP1—2 
0000 748 .ENDR 
0000 749 -ENDM $DSP1 
0000 750 
0000 751 -MACRO $DSP2,$D0SP2_1,$DSP2 2 
0000 £36 -=<$DSP2_1-AN>*2 + § 
0000 75 WORD S$DSP2_2-S 
0000 754 -ENDM $DSP2 
0000 755 
0000 756 
0000 757 MACRO $BND1,$BND1_1,$B8ND1_2,SBND1_3 
0000 758 $BND2 $8ND1_1,$8ND1_2 
0000 759 -ENDM $BND1 
0000 760 
0000 761 -MACRO $BND2,S$BND2_1,$BND2 $ 
0000 PO¢ LIF $BNB2_1,$8NB2_2-., -=$BND2_2 
0000 76 -ENDM S$BND2 
44 764 
000 765 MACRO $BND $BND_1,$BND_2 
0000 766 .IRP — $BND~3,,<$BND_2> 
B28 767 SBNDT $B8ND_1,$8ND_3 
00 76 -ENDR 
Bab 7 -ENDM $BND 
00 770 
0 71 -=0 
ee 21 
7 SBND GT,<VECTOR> 
0 774 MX: 
000 775 SBND LT,<VECTOR> 
ore MN: 
77 .=S$S 
0 oe 
i 779 CASE TYPE INDX ,#<MN=-22>,NMODE ' <MX-MND> 
0 780 S: 
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8 781 eREPT MX-MN+1 
7 WORD <MX=-MN>*#2 + 2 
7 ~ENDR 
784 
0 785 2S 
a3 1 
$3 4 $0SP1 <<VECTOR>> 
B65 4 : =<MX-MND>#2 + S + 2 
009 791 J ENDM SDISPATCH 
B33 8 
0000 794 »MACRO SETBIT BIT, BASE, ?L ; Set specified bit 
8606 795 BBSS BIT, BASE, L 
000 796 L: 
0000 797 ~ENDM 
0000 798 f 
0000 799 -MACRO CLRBIT BIT, BASE, ?L ; Clear specified bit 
0000 800 BBCC BIT, BASE, L 
0000 801 L: 
0000 a0 ~ENDM 
0000 80 
0000 804 «MACRO BREAK 
0000 805 JSB G* INISBRK 
0000 806 .ENDM 
0000 807 
0000 808 -MACRO DEBUG 
0000 809 TSTL ar-1 
0000 810 -ENDM DEBUG 
0000 = 811 
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£008 i -SBTTL Uriver Prologue Table 
mn ie -PSECT $$$105_PROLOGUE 
1 
38 13 3 ; Driver prologue table: 
0000 0 
0000 1 LTSDPT:: ; Driver start 
0000 ¢ DPTAB = ; Driver prologue table 
0000 END=LTSEND Address of end of module 
9000 : 4 UCBSIZE=UCBSC _LT ‘sauttats Size of each ucb of port driver 
5 ADAPTER=NULL ,= 3; Adapter type 
0000 826 NAME=LTORIVER, - : Name of driver 
9090 827 VECTOR=LTSVECTOR : Port driver vector table 
0038 828 DPT_STORE INIT 
0038 829 DPT-STORE UCB,UCB$B_FIPL.B,LATSC_IPL ; Fork ipl 
003c 830 DPT“STORE UCB,UCBSL eDEVCHAR, L,<-? Characteristics 
003¢ 831 DEVSM_REC!- : 
003¢ 83¢ DEVSM~AVLi- ; 
003¢ = 83 DEVSM_IDVi- ; 
003C 834 DEVS$M~ODV! = ; 
003¢ 835 DEVSM- TRA! ; 
9028 837 DPT_STORE UCB, ucBSL SP EVEHAR?. L,<- 
0045 838 DEVSM_NNM> : Pret name with <node$> 
004A 839 DPT_STORE UCB,UCB$B -DEVCLASS B,0C$_T 
004E 840 DPT-STORE UCB,UCBSB_TT_DETYPE,6 TTS. UNKNOWN ; Type 
0052 841 DPT-STORE UCB,UCBS$W_TT-DESIZE, aw So, Sou DEFBUF ; butter cise 
0059 Hn) DPT_STORE re fate Te in eTTYSGL_DEFCHAR ; Default characters 
0060 84 DPT-STORE UCB,UCBSL_TT_DECHA1,@L,TTYSGL_DEFCHAR2; Default characters 
0067 844 DPT-STORE UCB,UCBS$W_TT_DESPEE,@B, TTY$GB_DEFSPEED: Default speed 
006E 845 DPT-STORE UCB, UCB$W-TT-DESPEE+1,aB,TT Ty$GB ZRSPEED: Default rspeed 
0075 846 DPT-STORE UCB,UCB$B-IT-DEPARI,a@B,TTY$GB_PARITY ; Default parity 
007C 847 ;** DPT-STORE UCB,UCB$8_TT PARITY, a@B ttYseB" PARITY : Default parity 
007C 848 DPT-STORE UCB, UCB$B_DEVTYPE ,B.1T$_UNKNOON : Type 
0080 849 DPT-STORE UCB, UCB$W_DEVBUF SIZ. aw, TTYS$GW_DEFBUF ; Butfer size 
0087 850 DPT_STORE UCB,UCBSL_DEVDEPEND, aL, TTYSGL_DEFCHAR ; Default characters 
008E 851 DPT-STORE UCB,UCBSL-TT_DEVDP1,a@L,TTYSGL DEFCHAR2: Default characters 
009 85g DPT“STORE UCB.UCB$W_TT-SPEED,@8,fTY$GB_DEFSPEED : Default speed 
b09¢ 85 DPT-STORE UCB,UCB$W_TT-SPEED+1,a8,TTYS$GB_RSPEED ; Default rspeed 
00A 894 DPT“STORE UCB,UCB$B8_DIPL,B,LATSC_{PL : Device ipl 
O0A7? 855 DPT“STORE UCB.UCBSL_TT_WFLINK,L.O ; Zero write queue. 
Boat $28 DPT_STORE UCB,UCBSL_TT_ Sane : Zero write queue. 
08 5 DPT_STORE UCB.U UCBSL_ rT. RTIMOU,L, : Zero read timed out 
00BC 28 pee DPT-STORE UCB,UCB$W_TT_PRTCTL,W, TTYSM_PC_NOTIME : Disable all timers 
00Bc «85 DPT“STORE ORB,ORBSB “IiKe 6S.B,- : Default flags 
00BC 860 ZORBSM PROT 16> : SOGW word protection 
0CO 861 DPT_STORE ORB,ORBSW_PROT,aW,TTY$GW_PROT ; Default protection 
0c? 6¢ DPT_ STORE ORB, ORBS$L—OWNER, aL TTYSGC_OWNUIC ; Default owner uic 
O¢ 63 DPT“STORE DDB.DDBSL_DDT.D.L TSDDT 
00D 865 DPT_STORE REINIT 
000 66 DPT“STORE CRB,CRBSL_INTD*+VECSL_INITIAL,D,LTSCTRL_INIT ; Controller init 
0008 86 DPT-STORE CRB,CRBSL_INTD+VECSL_UNITINIT,D,LTSUN itt INIT : Unit init 
9900 68 DPT“STORE END 
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° i -SBTTL Local Sturage 
0000 ; ¢ -PSECT $$$115_DRIVER,LONG 
4; 
6 5 ; Local storage 
00 6 ; 
00 Hf 
00 8 5+ ee 
8 +4 5 Circuit State Block table 
00 91; This table is indexed by RCV_B_DSTIDN in received buffers. A 
003 892 ; concentrator always uses the same value when nyceerng to a 
093 95 ; host for a second time. The RCV_B_DSTIDS byte is a check byte 
i iy ; which helps prevent random or outdated references to CSBs. 
poe 96 :- 
003 S 
Ones 98 «ALIGN LONG 
0038 899 
0038 900 GHB_L_CSBTABLE: 
00000088 0038 901 -BLKL LATSC_MAX_CSBS ; CSB address table 
0088 902 GHB_B_LOC_CCHK: ; Table of local 
00000009 0088 90 -BLKB LATSC_MAX_CSBS+1 ; circuit checks 
0009 904 
0099 5 
0009 906 ; : 
0009 907 ; Timer queue element 
0009 908 ; : a 
0009 909 ; Used to timeout CSB's that have had no activity. 
0009 910; 
0009 911 
0009 4 «ALIGN LONG 
O0DC 913 GHB_G_TQE: 
0000010¢ O0DC 914 -BLKB TQESC_LENGTK 
010C 915 
; JAY0002 010¢ ot 8 : : ha 
; JAY0002 010C § ; The following is used during controller init to determine what the 
3 JAY0002 910C -> ; maximum number of slots supported by this VAX processor. 
3 JAY0002 010C 4: 
; JAYO002 010C i 
; JAY000 010C -6 GHB_B_MAX_ SLOTS: : 
; JAY000 00 BI9C * BYTE 0 ; Cell to contain max slot value 
; JAYO002 8100 -9 GHB_T_MAX SLOT TABLE: ; 
; JAY0002 40 010D .10 -BYTE ~ LATSC_MAX_SLOTS ; 0 (non-existent) 
3 JAY0002 40 Q10E .11 -BYTE 64 ; PRS_SID_TYP7 1 
: JAYOO02 40 O10F 1 -BYTE 64 > PRS-SID-TYP? é 
; JAYO00 20 0110 «! -BYTE g 3 45 tg 
; JAY000 FF O117) 16 -BYTE 5 ; PRS_SID_TYP79 4 
; JAY000 40 116 .15 BYTE 4 : 45 1 lg AD 5 
; JAY000 8 11 16 «BYTE 128 ; PRS_SID_TYP8NN 6 
; JAY000 1 114— WY -BYTE 18 ; PRS_SID_TYPUV1 7 
; JAY000 3 115 +18 -BYTE 4 ; PRS_SID_TYPuUV2 8 
; JAY000 40 118 7 BYTE LATSC_MAX_SLOTS ; 
; JAY000 40 011 -20 ~BYTE LATSC_MAX_SLOTS ; (patch area) 10 
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; JAYOOO 40 oii8 21 BYTE LATS$C -MAX_SLOTS ; 11 
; JAYO00 40 011 . § BYTE LATSC"MAX=SLOTS ; \¢ 
3 JAYO002 40 OTA, BYTE LATSC_MAX_SLOTS ; 1 
; JAYO002 40 0118 .24 BYTE LATSC_MAX_SLOTS ; 14 
; JAYOO02 40 O11C .25 ~BYTE LATSC_MAX_SLOTS ; 15 
3 JAYO002 40 011D .26 -BYTE LATSC"MAX_SLOTS ; 16 
3 JAY0O002 O11E $f 

3 JAYOOO2 00000010 O11E .28 MAX_PR_SID = 16 


—— 
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11E 9 917 
11E 318 3 
11E 3=—919 ; Host counter block 
116. 6Yeu s 
O11E §=—«- 92.1 
83 9 $ -ALIGN LONG 
1 925 GHB_AREA: ; Communications area 
00000180 4 8 4 ¢ -BLKB GHBS$S_COMM_AREA 
8185 g 8 «ALIGN LONG 
HGS biSe 928 GHB_L_UCBO: -BLKL 1 ; LT UCB zero address 
00000188 0184 929 GHB-L-DEADLINK: .BLKL 1 ; List of dead UCBs 
0000018C 0188 930 GHB-L_FFI: ~BLKL 1 : FFI block address ; 
0000019 018C 931 GHB-L-NULLCPU: .BLKL 1 ; Pointer to null CPU time 
00000194 0190 oa8 GHB_L_LASTCPU: .BLKL 1 ; Value of last null CPU sample 
00000198 0194 935 GHB_L_NULLSEC: .BLKL 1 ; Value of lLatt null CPU sample on secondary 
00000199 0198 934 GHB_B-STATUS: .BLKB 1 3; Host status byte 
0199 935 -VIELD GHB_STS,0,<- ‘ z 
0199 936 <MUCTI,{,M>,- ; Multicast buffer in use 
0199 937 <ACTIVE,1,M>,- ; LTDRIVER is active 
0199 938 <SHUT,1,M>,- ; Shutdown is in progress 
b199 +44 <TOe 1 ,H>,* ; Waiting for TQE to fire 
0000019A 0199 941 GHB_B_INCARN: .BLKB 1 : Incarnation number for multicast message 
00000198 019A 942 GHB_B_OLD_CSBCNT: .BLKB 1 ; Count of oid CSBs on queue 
0000019C pie 2e7 GHB_B_RATE: -BLKB 1 ; Initiat rating computed from memory size 
019C 945 ; Multicast data set by LATCP 
019C 946 ; 
O19C 947 -ALIGN LONG : 
QO00019E 019C 948 GHB_W_MC_SIZE: .BLKW 1 :_Size of name and ID strings 
000003E8 Oye rH GHB_T_MC_DATA: .BLKB XMT_C_MC_TOTAL+16 ; Name and ID storage + fudge factor 
O3E8 951; 
tH 926 : Multicast (Configuration) Message Destination Ethernet address 
0368 954 -ALIGN LONG eee 
0009 03€8 955 GHB_Q_MULTIADD: .WORD LATSC_MULTIADD1 ; LAT Multicast destination address 
002B O3EA 956 - WORD PAT sere 1a Aaee H cee 
OFOO O3EC %57 «WORD LATSC_MULTIADDS ; __ ses 
O3EE 958 ; Picks up next word also (garbage) 
O3EE 959; 5 
O3EE 380 ; Data to control multicast buffer 
JIte e 
QOOOO3FO 3EE oe8 GHB_W_MULTIMR: .BLKW 1 ; Timer for multicast transmits 
000003F4 oe 332 GHB_L_MULTIBFR: .BLKL 1 ; Address of the multicast buffer 
; 
O3F& 965 ; : ; 3 
C3F4 308 ; Host Multicast (Configuration) Message fixed portion template 
bate +t r (Fields are order-dependent and adjacent 
O2F4 969 ASSUME XMT_B_FLAG EQ XMT_T_DATA 
U3F4 970 ASSUME XMT_B_MC_CIR_ TIMER EQ XMT_B_FLAG+1 
03F4 9971 ASSUME XMT~B"MC"HI_VER EQ XMT"B"MC_CIR_TIMER+1 
O3F4 972 ASSUME XMT~B-MC"LO-VER EQ XAT“BMC"HI_VER+1 
O3F4 «97 ASSUME XMT"B"MC"CUR_VER £Q XMT~B™MC“LO"VER+1 
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oare 974 ASSUME XMT_B_MC_CUR_ECO EQ XMT_B_MC_CUR_VER+1 
F4 = 975 ASSUME XMT_B™MC_INCARN EQ XMT_B_MC_CUR ECO+1 
O3F4 af8 ASSUME XMT_B_MC_CHG_FLAG EQ XMT~B_MC”INCARN+1 
O3F4 97 ASSUME XMT_W_MC_MSG_SIZ EQ XMT_B_MC_CHG_FLAG+1 
03F4 978 ASSUME XMT“B"MC~SET EQ XMT"W-MC_MSG_SIzZ+2 
O3F4 979 GHB_T_MC_MSG: ; Start of multicast msg fixed data 
28 O3F4 980 -BYTE MTYP_C_CONF@FLAG Y MTYPE ; Message type 
08 QO3F5 981 «BYTE <LATSC-CIR_TIMER?9S/10 ost preferred Circuit timer 
05 03F6 one -BYTE LATSC_AI_VER ; Highest LAT protocol version supported 
05 O3F7 98 -BYTE LATS$C_LO_VER 3; Lowest LAT protocol version supported 
05 O3F8 984 «BYTE LATSCICUR_VER ; Current LAT protocol version | 
00 O3F9 985 «BYTE RATSC.CUR_ECO ; Current LAT protocol ECO version 
00 O35FA 986 -BYTE ; Message incarnation (filled in later) 
00 O3FB 987 -BYTE 0 ; Change flags (filled in Later) 
O5SDC O3FC 988 «WORD LATSC_MAX_MSGSIZ ; Maximum message size 
O3FE 989 
O3FE 990; 
Oare 44 ; Standard Start message (fixed portion) template 
OSFE 395 ASSUME STRT_W_MSGSIZ EQ 0 
O3FE 99% ASSUME STRT-B-PVER EQ STRT_W_MSGSIZ+2 
O3FE 995 ASSUME STRT_B_PECO EQ STRT_B_PVER+1 
O3FE 996 ASSUME STRT-B"MAXSLOTS EQ STRT~B~PECO+1 
O3FE 997 ASSUME STRT_B_DL_BFRS EQ STRT_B_MAXSLOTS+1 
O3FE 998 ASSUME STRT_B-CIR_TIMR EQ STRT_B_DL_BFRS+1 
O3FE 999 ASSUME STRT“B-KPA-TIMR EQ STRT~B~CIR_TIMR+1 
O3FE 1000 ASSUME STRT-W-FAC-NUM EQ STRT~B-KPA-TIMR+1 
O3FE 1001 ASSUME STRT-WUPROB_TYP EQ STRT~W7FAC~NUM+2 | 
00000400 O3FE 1906 GHB_W_STRT_LEN: .BLK@ ~ 1 ; Cength of start message — 
0400 1003 GHB_T_STRT_MSG: ; Start of start message fixed data 
O05DC€ 0400 1004 «WORD LATSC_MAX_MSGSIZ ; Maximum Ethernet frame size 
05 0402 1005 ~BYTE LATSC_CUR_VER ; Current LAT protocol version 
00 0403 1006 «BYTE LATSC_CUR_ECO ; Current LAT ECO version | a: 
; JAYO002 00 0404 1 -BYTE 0 ; Maximum number of Slots per circuit 
-1 00 0405 1008 -BYTE 0 ; Number of additional buffers (remote) 
00000408 0406 1009 -~BLKB 2 ; Remote parameters only — 
0000 0408 1010 «WORD 0 ; Facility number (not yet implemented) 
0003 Bebe 191 «WORD LATSC_VMS ; Product type code 
040¢ 1013 ASSUME STRT_B_VAR EQ STRT_W_PROD_TYP+2 
00000481 oor isi GHB_T_STRT_VAR: .BLKB ~ STRT_C_VAR_LEN ~; Variable portion of start message 
Reet 1918 ; Standard Start slot template 
4B1 1018 GHB_T_STRT_SLOT: __ , Start of the start slot data 
01 0481 1019 ~BYTE SLT C_SVC_LINIT ; Service class . 
FF 0482 1020 -BYTE LATSCIMAX“SLOTSIZ ; Attention slot size 
FF 04835 1021 ~BYTE LATSC_MAX_SLOTSIZ ; Data slot size wiFgl aes 
00000486 0484 13s6 .BLK 2 ; Null source and destination slot names 
00000005 486 102 GHB_C_STRT_SLOTL = <.-GHB_T_STRT SLOT> 
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4B6 1025 -SBTTL Port Vector 
486 + § 
486 1 $ . 
Reey 1028 ; The associated class driver uses this table to command the port driver. 
486 18 9 ; The address of this table is contained in the terminal ucb extension area. 
0486 1 ; The offset definitons are defined by ttydefs. 
486 1031 ; 
4B6 10 § 
0486 1033 ; 
04B6 ts : LAT specific dispatch table 
0486 1035 ; 
4B6 1938 ; ORDER DEPENDENCY ; 
486 1 ; The following symbol must immediately precede the vector 
0486 1038 ; 
0486 1039 
0486 1040 -ALIGN LONG 
0488 1041 GHB_L_AREA: 
000004BC 0488 1006 -BLKL 1 ; Address of counter vector 
04BC 1043 LTSVECTOR: 
O4BC 1044 $VECINI RT LTSNULL 
O4F4 1045 $VEC TARTIO,LTSSTARTIO ; Start new output 
04C0 1046 $VEC DISCONNECT, LT$SDISCONNECT ; Hangup port 
04C4 1047 $VEC ABORT ,LTSABORT ; Abort output 
04E0 1048 $SVEC  SET_LINE, LTSFLOW_CHANGE : Change flow controt 
04€8 1049 $VEC XON,LTSXON ; Send xon sequence 
0400 1050 $VEC XOFF ,LTSXOFF ; Send xoff sequence 
04D4 1051 ; $VEC DS_SET,LT$DS_SET ; Dataset transitions 
0404 1052 $VECEND 
O4F8 1053 : 
O4F8 1054 LTSNULL: ; Null port routine 
05 O4F8 1055 RSB 


¥ 


GHS$V_CSBINVALID,- 

AT_C“RSN_XXX, = 

<circuit index invalid> 
LT_RSN_CSBSTALE: 
SREASON 


GHBS$V_CSBSTALE,- 
LAT_C"RSN_XXX,= 
<circuit stalé reference> 
LT_RSN_HALT: 
SREASON - 
GHBSV_HALT,- 
LAT_C"RSN_XXX = 
<circuit forced to halt> 
LT_RSN_INVALIDLOCID: 
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4F9 1 37 
4F9 4 8 3 
ree 1059 ; Stop reasons 
4F9 1060 ; 
4F9 1061 
4-9 1 $6 »~MACRO S$REASON RSNCD, RSNBIT, RSNSTR, ?L 
4F9 106 ° N WORD 
4F9 1064 «SIGNED WORD L-. 
4F9 1065 -BYTE RSNCD, RSNBIT 
O4F9 1396 L: eASCIC /RSNSTR/ 
act 190 »ENDM 
00000001 04F9 1968 LAT_C_CRSN_DONE =] ; No slots in VC 
BRR DORE 8 1070 LAT_C_CRSN_IVMSG = ¢ ; Invalid message 
0000000 re 1071 LAT_C_CRSN_IVSCI 5 : Invalid slave conn id 
00000004 04F 1976 LAT_C_CRSN_IVMCI = 4 ; invalid master conn id 
00000005 O4F9 1073 LAT_C_CRSN_DISC = 5 ; Disconnect requested 
eee aie Bere 1074 LAT_C_CRSN_PROGRESS = 6 3 No progress being made 
00000007 O4F9 1075 LAT_C_CRSN_TMO =7 ; Timeout of circuit 
00000008 04F9 1976 LAT_C_CRSN_RETRANS = 8 ; Retransmit count exceeded 
00000009 O4F9 1077 LAT_C_CRSN_RESOURCE = 9 ; No resources 
QOOO000A O4F9 1078 LAT_C_CRSN_TIMRANG = 10 ; Timer value out of range 
O04F9 1079 
04F9 1080 : 
00000000 O4F9 1081 LAT_C_RSN_xxx = 0 ; junk 
O4F9 10ee 
04F9 1083 LT_RSN_START: 
O4F9 1084 SREASON - 
04F9 1085 GHBSV_START,- 
O4F9 1086 LAT_C"RSN_XXX,= 
O4F9 1 <other than start msg with a zero src index> 
0529 1088 LT_RSN_CSBZERO: 
0529 1 SREASON - 
0529 1 GHB$V_CSBZERO,- 
0509 1 LAT_C"RSN_XXX,= 
0529 1 <circuit index zero> 
0541 1 LT_RSN_CSBRANGE : 
0541 1 SREASON - 
0541 1 GHB$V_CSBRANGE ,- 
0541 1 LAT_C"RSN_XXX,= 
0541 1 <circuit index out of range> 
0561 1 LT_RSN_CSBINVALID: 
et SREAS 
= 
;.% 
, se 
c 1 
. 4 
9 
c | 
8 1 
1 
1 
1 
1 
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SREASON 
cuBsy SNS 
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“3 >= => 


Guasy -BADCREDITS,= 
LAT_C°RSN_XXX,= 


<bad numberof credits in slot> 
LT_RSN_ aa 


GHBS$V -REPCREATE ,~ 
LAT_C_RSN_XXX,= 
porget create of slot by server> 


EASON - 
GHB$V_REPDISC,- 
LAT_C"RSN_XXX,= 

<repeat disconnect of slot by server> 


-ALIGN LONG 


LT_RSN REPDISC 
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-SBTTL LTSCTRL_INIT = Controller Initialization 
-DEFAULT DISPLACEMENT, WORD 

LTSCTRL_INIT - Initialize port driver 

Functional description: 


v04-00 
DR 


This routine is entered at driver load and power recovery. 
Inputs: 
RB 
Outputs: 
RO through r3 are modified. 
Implicit inputs: 
IPL = IPL$_POWER 


DDB address 
CRB address 


cee Pee Se Se Ge Se Fe Ss Se Se Ge Se Ge Sse Sets Sse Sse te 


TSCTRL_ INIT: i Initialize controller 

; Save the address of unit zero for cloning ucbs, if its here now. 

; MOVL DDB$L_UCB(R6), R1 ; Its in the device data block 
BEQL 5$ ; Do not store a zero 


MOVL R1, GHB_L_UCBO ; Save its address 


w 
ed 


GHB_L 


first port driver to load. 


WOOOOOOOCOCOCOGIGDGD COCO OD OD ISIN SNP PAA AAA AAAI ITI BS EEE 
NOUS AN —OODNOUSE WO OONAUES WN $9 ODA UE WN OO OOVNAUS WN OC OONOULS wr 


MOVL G*TTYS$GL_DPT,R1 ; Get terminal class driver DPT address 
MOVZWL Bo TY .NECTORCRT) LAO ; Get offset to class vector 
ADDL5 RO,RIUR , Calculate virtual address 
10$: Sst (RO) : Already | relocated or done? 
BLEQ 20$ s Or if y 
ADDL R1,(RO)+ 3; Else, Yad bias 
BRB 10$ : Loop till done 
: Relocate port vector table 
20S: 
MOVAL LITSDPT ; Get our DPT address __ 
oa MOVAL LT EVECTGR, RO : Get address of our dispatch vector 
TSTL (RO) ; Already relocated or done? 


IVER.MAR;1 


MOVL G*SCHS$GL_NULLPCB+PCB$L_PHD,- ; Get address of NULL PHD 
ADDL #PHDSL_CPUTIM,GHB_L_NULLCPU ; Get offset to ‘idle time’ 


Attempt to relocate terminal class vector table in case we are the 


H 16 aoe 
ei Br3thn 1380 1438 


LTDRIVER - Local Area Terminal Port D 
Youn 00S CTSCTRL_ INIT - Controller Baie 
5 15 0695 119 BLEQ 
80 93 CO $33 1138 ADDL 
F7, 311 Q69A 1 BY BRB 
69C 1201 40$: 
O75D'°CF 9E O069C 1 § MOVAB 
fae CF 6A0 1 
O8S5°CF 9E O6A3 1204 MOVAB 
ARE CF 6A7 1205 
0965'CF 9E& Q6AA 1206 MOVAB 
FA73 CF Boag 1207 
FA6B CF 9E 0681 1208 MOVAB 
FEOO CF eet 1209 
O0000000'GF 90 0688 1210 MOVB 
FADS CF O6BE 1211 
06C1 1 \¢ 
FADO CF 9E& 06C1 121 MOVAB 
FA74 CF 06C5 1214 
06C8 1215 
pote 1216 ASSUME 
06C8 1217 ASSUME 
00050004 8F DO 06C8 1218 MOVL 
FAGF CF O6CE 
06D1 1338 
06D1 1220 
06D1 1221 
OA 90 06D1 iss¢ MOVB 
FACS CF 0603 122 
FOSE CF 9E& 06D6 1224 MOVAB 
FA63 CF O6DA 1225 
50 FA63 CF 9E O6DD 1226 MOVAB 
60 D5 06E2 \sst TSTL. 
07 12 O6E€4 1228 BNEQ 
60 50 00 06E6 1$¢? MOVL 
04 A0 50 DO O6E9 1230 MOVL 
06ED 153) 
O6ED 1232 50$: 
; JAY0002 Q6ED on 
3 JAY0002 O6ED § : 
3 JAY0002 ~oeeneedt 9A Boee m MOVZBL 
3 JAYO0O02 50 10 91 O6F4 4 CMPB 
7 JAYO002 1E O6F7 5 BGEQU 
7 JAY0002 40 8F 90 O6F9 6 OVB 
FAOD CF 6FC 
3 JAYOOC2 bf F m 
3; JAYOOC2 08 11 ae 8 BRB 
3; JAY0002 FAO7 CF40 8690 01 9 55$: MOVB 
FAOS CF 0706 
; JAY0002 709 ~=—s «10 
; JAYO00 709—si«wsWA'YT 
; JAY000 709 af 
3 JAY0002 709—ti«i«a«z?W : 
; JAY0002 eeesennd dO H 14 60$: MOVL - 
-3 00042000 ef C6 ay 1236 DIVL 
50 08 C3 n$ 1237 SUBL3 


7:2 


ROD 


aM 
LTS$STRENTRY 
GHBSL STRENERYSGHB “AREA : 
LTSSHOTENTRY 
GHBSL SHUTENERY GHB, AREA: 


LT$S 
GHBSL_SETENTRY+GHB_AREA ; 
GHB ARE Aes 

eveTESCa SYSTINE, - 
GHB_B_INTAR 


GHB_T "MCD : 
GHBSL~ “NOBE*GHE. _AREA 


GHBSB_LATVERSION EQ GHB 
GHB$B-LATECO EQ 
#<<LATS$C_CUR _ECo>aé! * 3 


LATS¢ -CUR.VER>@16! =; 
LATSC-VMS-VER, 

clips OMS VERS 1ON¢ GH _AREA 
AT$SC_K SB,- : 
B OL erSocNT 

one L“CSBTABLE ,- : 


GHBSL-CSBLST+GHB_AREA 
cHBsO~ OLD_CSBS+GAB_AREA,R 


G*EXE$GB_CPUTYPE ,RO 
#MAX_PR_SID,RO 
#LATSC_MAX_SLOTS, - 
W°GHB_B_MAX, SLOTS 


GHB_T_MAX_SLOT_TABLECRO], - 


W*GHB_B_MAX_SLOTS 


G*MMGSGL_MAXPFN,RO 
#8192 ,R0 : 
RO,#8,RO 


1:98: $3 AX/VMS Macro v04-00 
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Br if yes, powerfail 
Else, add bias 


Page 3 


; Loop til done 


Set address of start entry point 
Set address shutdown entry point 
; Set address of multicast set entry 


; Save address of the common area 
so we can find them from LATCP 


; : Get a random number 


and save for the message seed vaiue 
Address of multicast data area 


$W_VMSVERSION+2 


GHB$B_LATVERSION+1 


Store current ECO 


and VERsion 
and VMS VERsion 


Set number of CSBs to keep around 
Store address of CSB table 


Get address of old CSB entries 
already initialized? 
: Br 1%. skip next section 
Br tte ize Listhead 


0 


: Set up the maximum circuit session Limit value for this processor 


; Get CPU type code 


: Within conget 

; Branch if s 

3; Else load default max imum 
: And branch 

; Load maximum session count 


Setup the initial rating value, based on memory size 
; Get the max PFN count 


Weight by 4M8 chunks 


; Compute for up to 32 MB systems 


8 
5) 
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oe 18 0718 1338 BGEQ 70$ : Br if result ches : 
5 D4 071D 1239 CLRL RO ; Else, more than 32 MB - impressive! 
FF 8F = 50 83 O71F 1249 70$: SUBB3 = R0,#255,GHB_B_RATE ; Store initial rating 
FA7S CF 0723 
05 0726 1241 RSB 
0727 1 tg 
0727 124 IF DEFINED LT_KISTORY 
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f 4 } re = -SBTTL LTSHISTORY = Save history in the buffer 
4 4 ! ‘ ; LTSHISTORY = Save history in the buffer 
727? 1249 ; Save history on transmits and receives. 
Bf q : 29 ; The history buffer is defined as follows: 
Bf 4 : 26 5 t- Dalened te nent ate ee 
; ointer to next slot 
07 7 1 54 ° Sere enter mee wn eer em ewe Em Se ee eS a 
0727 1255; ! Pointer to end of buffer! 
; 'spare!type! buffer size 
07 7 1 58 Py ! ce mm eo em eee eee = Sea eS me we ee oe ‘ 
0727 1259 ; ! coe COCO cece : 
0727 1260 ; 
0727 1261 ; ! ! 
07 7 1506 ; teaser em ee Sewer ne anwae em oee + 
0727 \$6 ; 
0727 1264 ; Inputs: 
0727 1592 3 RO => data to save 
0727 1266 ; 
Ors? 1$02 3; Outputs: 
0727 1268 ; R1 is clobbered 
0727 1269 ;-- 
0727 1270 : : 
00000020 of g : 4 SLOT_SIZE = 32 ; Size of each history slot 
0727 1 ~ LTSHISTORY: 
51 FOFD CF 00 0727 1274 MOYL GHBS$L_HISTORY+GHB_AREA,R1 ; Point to history buffer 
2— 13 O72C 1275 BEQL 90$ :; Br if none 
O72E 1276 ; 
50 DD 1443 1277 PUSH RO :; Save RO : 
20 Ci 0730 1278 ADDL #SLOT_SIZE,- ; Compute end address for this slot 
50 61 0732 1279 HBF _C_NEXT(R1) RO 
04 A1 50 D1 0734 1280 CMPL RO,HBF-L_BUFEND(R1) ; Are we past the end? 
06 18 0738 1281 BLEQU «308 ; Br if no, continue 
OC Al 9E O73A 1se¢ MOVAB HBF _Z_DATA(R1),- ; Else, back to beginning 
61 bree 128 HBF _L_NEXT(R1) : 

51 61 00 073€ see 30$: MOVL HBF L_NEXT(R1),R1 ; Get address of next available slot 
ee a 7D fod 1285 MOVQ G*ERESGQ_SYSTIME,(R1)+ ; Store time in first quadword 
50 6€ D0 0748 1286 MOVL (SP),RO ; Get back buffer address 

81 0 7D O748 1 fh MOVQ Hoe (R1)+ :; Save the data 
81 0 7D O74E 1288 MOVQ (RO)+, (R1ID+ » Save the data 
81 0 7D 0751 1 34 mova (RO)+, (R1)+ ; Save the data 
754 1290 ASSUME HBF_L_NEXT EQ 0 
FOCF DF 51 00 P36 1291 MOVL R1,9GABSL_HISTORY+GHB_AREA ; Save address of next slot 
50 8ED0 4 ; : 35 POPL RO ; Restore RO 
05 fat 1294 90$: RSB 
75D 1295 -ENDC =; DEFINED LT_HISTORY 
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0730 } af ~SBTTL LTSSTRENTRY = Entry to start driver 
bf . ! $3 ; LTSSTRENTRY = Start LTDRIVER entry point 
0730 ! 0 ; Functional description: 
arp 1 08 3 This entry is called by the startup program to initialize the 
Q75D 1304 ; driver. Here we save the datalink UCB address, allocate the CSB's 
075D 1 82 : and start the first receive. 
0750 1306; 
0750 1307 ; Inputs: . 
075D 1308 ; RS = UCB address of datalink 
075D 1309 ; . . 
0750 1310 ; Implicit inputs: 
075D 1311 ; 
075D 1316 ; Called in user context. 
075D 13) : 
075D 1314 ; Outputs: 
075D 1315 ; RO = success or failure 
075D 1316 ;-- 
075D 1317 
0750 1318 
075D 1319 LTSSTRENTRY: 
075D 1320 DSBINT #LATSC_IPL ; Raise IPL to prevent interruption 
roc ce 6065S. CO ihe 136! R5,GHBSL_UCB+GHB_AREA =; Save the datalink UCB address 
59 F8CC CF 9E 0768 135 MOVAB GHB_L_CSBTABLE,R9 +; Get CSB table base address 
5A 20 9A O076D 1324 MOVZBL #LATST_MAX_CSBS,R10 ; Get table length in longwords 
89 D4 0770 1325 208: CLRL (R9)+ ; Zero the whole table 
FB SA FS5 146: 1358 SOBGTR R10,20$ ; Do whole table 
0775 1328 ; Save the Last CPU idle value 
0775 1362 2 
FAIS DF 00 0775 1330 MOVL @GHB_L_NULLCPU,- ; Save last idle value 
FA14 CF 0779 1331 GHB_L_LASTCPU 
00000000" se DO bees 1332 MOVL G*EXESGL_MP,RO ; Get ptr to MP code 
or 3 0788 1333 BEQL 40$ ; Br if not there : 
0000'CO DO 0785 1334 MOVL MPSSGL_NULLCPU(RO) ,- ; Else, get Secondary null time 
FAO8 CF 0789 1335 GHE !. “NULLSEC 
078C 1336 40$: 3 : F . : 
gree 1337 ; See if the datalink supports the fast interface and if so 
4 : 1338 ; then allocate an FFI block and initialize that interface. 
50 94 O78 1340 ELRL RO > Assume error : 
51 24 A5 00 O07 3 1341 MOVL UCBSL_CRB(R5), R1 ; Get address of datalink's CRB 
51 40 Al 09 079 1348 MOVL CRBSLIINTD+VECSL_START(R1), R1_; Get address of FFI INIT routine 
3% bo08 134 BEQL 70$ ; Br if not present 
0045 30 0798 1344 BSBW LTSGETFFI : Else, create and initialize FFI 
050 €9 0798 1345 BLBC ° : Br if error 
F9ES CF 54 00 ee } rt) MOVL R4,GHB_L_FFI ; Else, save FFI block address 
Bra 1348 CLRBIT #GHB_STS_V_MULTI,- ; Clear the multicast busy flag 
7A3 1349 GHB"B_STATUS jl ; 
FC43 CF «=64 )S=COO7A9) = 1350 CLRL GHB_C_AULTIBFR ; No multicast buffer is possible 
0185 30 BrAR 132) BSBW 3=SsL TSSETENTRY ; Setup multicast message 
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50 FO9CC CF 0 reo 1353 MOVL GHB. L_UCBO, RO ; Set unit seed in the ucb 
ae 7BS 1354 BEQL 3; No ucb0, bad news 
60 BA 7B7 «1355 CLRW  UCBS$W_MB_SEED(RO) : Start with unit 1 
105C 0 ay } 28 BSBW LTSSET_TIMER ; Start timer, so we always have a tick 
55 F974 CF DO Mat 1358 MOVL GHBSL UCB CHR AREA, R5 ; Get datalink yh address 
5C AS B6 O7C1 1359 INCW UCBSW ; One more ref to keep it around for us 
sae er AB 45 1360 B1SW ¥ 58000. UCB$W_DEVSTS(R5): Allow unit to be re-started 
O7CA 136) 3 _ automatically by datalink 
50 O0°8F 9A O7CA 1 ¢ MOVZBL #SS$_NORMAL, RO ; Return puseens 
0B 50 €8 O7CE 1363 70$: BLBS R ; Br if okay 
FOSF CF D& O7D1 1364 CLRL GHASL Neovo AREA ; Else, forget about datalink UCB 
SE 10 0705 1365 BSBB LTSSHOTENTRY ; Clean it all up 
OO0OO'SF 3C O7D7 1366 MOVZWL aSS$ INSFMEM, RO ; Return not enough memory 
O7DC 1367 80S: ENBINT ; Restore IPL 
05 O7DF 1368 RSB 
O7EO 1369 
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ae -SBTTL LTSGETFFI = Get the FFI block and initialize FFI interface 
; LTSGETFFI = Get FFI block 
: Functional description: 


Page 33 
age 138) 


Initialize the FFI interface. 


Inputs: 

BS 3 GEE TUL-GLLTG} SEL Soyt tne 19 eecatton arte 
; Outputs: 

RO = Status 


R1-R4 are destroyed. 


LTSGETFFI: 
PUSHL 1 3; Save init routine address 
MOVZBL #FFISC LENGTH,R1 ; Set length of buffer to allocate 
JSB G*EXE SALONONPAGED ; Try to allocate an FFI block 
BLBC RO. 308 ; Br if err 
MOVL R2,R4 3 Copy FFI block address 
ASSUME FFISL_FL EQ 0 
ASSUME FFIS$L_BL_EQ FFISL_FL+4 
ASSUME FFISW_SIZE EQ FFISL_BL+4 
ASSUME FFISB_TYPE EQ FFISW SIZE+2 
ASSUME FFISB_SPARE EQ FFIS6_TYPE+1 
LRQ (R2)+ Clear Link pemeere 
MOVL #<DYNSC_BUF 10816>!FFISC LENGTH, (R2)+ ; Store block size & type 
ASSUME FFISL_CTX_DL Fa FF I$B_SPARE+1 
ASSUME FFIS$L ~XMIT EQ ;FISL_CTX i. - 
ASSUME FFISL_XMIT_ DONE EQ FFISC_X T+4 
ASSUME FFISL_RECV- DON mi FFISL- XML DONE +4 
ASSUME FFISL “ERROR EQ FFISL_RECV_DONE+4 
ASSUME FEISL SHUT. DONE EQ FFISL “ERROR®4 
CLRQ (R2)+ : Zero CTX & XMIT routine address 
MOVAB Met eae EF rbOwe - FRg}s : Store XMIT Complete routine address 
MOVAB W*LTSFFI_RCV_MSG,(R2)+ ; Store RECV Complete routine address 
MOVAB W*LTSASYACERR, (RO) + : Store address of ERROR handler 
VAB W°LTSSHUT DONE (R2)+ —; Store address of SHUTDOWN handler 
ASSUME FFISL_SPAREO EQ FFISL_SHUT_DONE+4 
ASSUME FFISL_SPARE1 EQ FF ISL-SPAREO+ 
ASSUME er larmtp anes EQ FFISL_SPARE1+4 
ASSUME FFISL_SPARES EQ FFISL_SPARE2+4 
CLRQ (R2)+ ; Not used 
CLRQ (R2)+ 
ASSUME FFISL_DL_UCB EQ FFISL_SPARE3+4 
ASSUME FFISL-PIB EQ ih DL_UCB+4 
ASSUME FFISW-CHAN EQ FFISC_PID+4 
VL R5,(R2)+ : Store datalink UCB address 
CLRL (RE) : Zero PID 
CLR (R2)+ ; Zero CHAN 
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vrai ti [TSeetFr i - Get the FFI block and initia Boyan] 382 | 1386: $3 LAT .BUGSRCIJLTDRIVER.MAR; 1 . 38) v¢ 
50 OO°8SF 9A 1B 1427 MOVZBL #SS$_NORMAL ,RO ; Return Success 
1 BED 1F 14 3 30$ POPL R1 3; Restore R 
OF g E 14 BLBC + ao : Br if oe ss tag error 
04 14 9 CLRL R 3; No parameter 
1 ig 14 JSB (R1) 3; Else, call “datal ink init routine 
08 50 ~=C€ 9 14 ¢ BLBS RO,90$ 3; Br if succ 
50 4 b° C 14 MOVL : Else, copy Fr block address 
13A7 F 1434 BSBW = LT $DEALPOOL : Deallocate the FFI bloc 
50 Be 2 1435 CLRL RO : Return failure 
5 4 1636 90$: RSB 
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Woon ous LTSSHUTENTRY = Shutdown entry point =3pN- 1382 14:28:83 LAT.BUGSRCILTDRIVER.MAR; 1 ’ (33) ve 
1% 3 - -SBTTL LTSSHUTENTRY = Shutdown entry point 

1229 3 LTSSHUTENTRY = Shutdown LTDRIVER entry point 
0835 1442 : Functional description: 
835 1208 3 
i eee 3 Shutdown things when we are done. 
0 ; 1446 : Inputs: 
0 1409 : non 
0835 1448 ; 
8 2 1968 : Implicit inputs: 
0835 1451: Called in user context. 
0835 1926 : 
tt 1453 ; Outputs: 
0835 1454 ; non 
0835 1455 ;-- 
0835 1428 
0835 1457 LTSSHUTENTRY: 
0835 1458 DSBINT #LATSC_IPL : Sync with rest of things 
0838 1459 SETBIT #GHB_STS_V_SHUT,- ; Indicate that shutdown has been 
0838 1460 GHB-B_STATUS ; requested 
0841 1461 
0841 1066 : 
+a 1087 3 Deallocate and shut down all the circuits 
59 F7F3 CF ODE 0841 1465 OVAL GHB , CSBTABLE, R9 ; Table of CSB addresses 
SA 20 «9A 0846 1466 MOVZBL #LATSC_MAX_CSBS, R10 : and its Length 
8 89 DO 0849 1467 40S: MOVL (R9)+, RB ; Get a CSB address 
03 13 O84C 1468 BEQL 60$ : No CSB address here 
OED9 30 O84E 1469 BSBW LTSCIRCDEAD ; Kill all processes on this one 
F5 5A FS 0851 1470 60S: SOBGTR R10, 408 :; Til end of table 
0854 1471 
0854 1476 : 
0854 14735 ; We can reduce our interest in the datalink UCB here early because 
0854 1474 ; the LAT control progres still has a channel to the UCB and is still 
0854 1475 ; active. The UCB will disappear when the LATCP deassigns its Last 
0854 1028 3; channel to it. 
0854 1477; 
ogee 1478 
59 F8DC CF OD 854 1479 MOVL HBSL_UCB+GHB_AREA, R9 ; Get datalink UCB and reduce our interest 
13 0859 1380 BEQL 3; No ucb here 
6008 A AA 0 3 1481 BICW #*x8000 ,UCBSW_DEVSTS(R9); Don't want datalink to re-start 
61 14 § 3; soany more! 
5C AD = B7 61 14 DECW UCBSW_REFC(R9) ; Let datalink UCB q° away. 
FCC CF DG 64 1484 CLRL GHBSL_UCB*GHB_AREA ; Forget we ever had it 
68 1485 3; This prevents more circuits from 
6 Fe $ : being accepted. 
68 1488 3; Wait for any datalink re-start timer to expire. Spin on 
i? H ; the INTERLOCK bit. 
0 68 1491 SETIPL #IPLS_ASTDEL ; Prevent us from being deleted, 
68 1636 3 t allow scheduiing activity 
04 68 AD OF €1 0868 1495 70$: BBC #14, UCBSU_DEVSTS(R9) ,80$ ; Proceed if UCB can evaporate 
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7 1 70 1494 8SBB LD. TQE ; Wait around for a while 
rg i? 73 1435 BRB att a 3 Try again 2 
at 
74 1298 : Now we must wait for all the CSBs to disappear. We must not leave 
74 1380 3 here until all the processes have run down and the CSBs are gone 
74 «#1501 ; since latstart can be used again very quickly and that could cause 
74 «4 Be } CSBs to be allocated again. If processes don't run down we will 
8 a } ? : be stuck here until they do. 
0 74 3 5° SETIPL #IPL$_ASTDEL ; Prevent us from being deleted, 
77 (1 $ ; but allow scheduling activity 
02. 11 bare 138 BRB 110$ ; See if CSB's are all gone 
0878 1308 : Now delay while we wait for CSB's to run down 
67 10 0876 131) 100$:  6sBB BUILD_TQE ; Build TQE to wait on and wait 
59 F7B9 CF DE 0878 1348 110$: MOVAL GHB t CSBTABLE ,R9 3; Table of CS8 addresses 
SA 209A 0880 1514 MOVZBL #LATSC_MAX_CSBS, R10 =: and its Length 
58 89 OD 8 1515 120$: MOVL (R9)+, RB : Get a CSB address 
Fl 12 0886 1516 BNEQ ; Just spin here looking 
F8 SA F ett 1317 SOBGTR R10, 1208 3; Til end of table 
He 133? Now wait for all the UCBs to dissappear except unit 0 
02. «11 O88 3 1 BRB 160$ 3 Check if we're all done 
53 10 base 13 5 140$:  BSBB BUILD_TQE ; Build TQE to wait on and wait 
tH 12 5 : Now delay while we wait for terminal UCB's to run down 
50 FRED CF 09 ty 15 $ 160$: MOVL GHB_L_UCBO,RO 3; Get the LT UCB address 
OA 1 0894 1528 BEQL 1808 s Tit 
51 24 A0 DO 0896 1529 MOVL UCBSL_CRB(RO) ,R1 ; Get the CRB address 
01 OC Al B81 089A 1530 CMPW CRBSUOREFCCRIS 1 : ALL done ? 
ED 12 O89F 1531 BNEQ 140$ : Br if no 
BAO 15 $ 180$: ; : 
ny 13 z : Reset completion routines for datalink'’s FFI interface 
8 7 1535 SETIPL #LATSC_IPL 3; Sync access to rest of driver 
55 F8E1 CF OD AS 1536 MOVL HB_L_FFI, R5 ; Get FFI block address 
ci AB 1537 BEQL ; Br if none 
1BD8' CF 9E AA 1538 MOVAB W*LTSDROPCXB,- . Drop all RECEIVE buffers 
BAE 1539 FETs RECV_DONE(RS) 
1BCF CF 9E 1540 MOVAB W*LTSFFIPOSTDONE,- ; Deallocate all TRANSMIT CXBs 
14 AS 4 1541 FFISL_XMIT_DONE (RS) 
6 1366 200$: ; f 
° } rt 3: Deallocate the multicast buffer 
50 FB36CF OD 6 1248 MOVL HB L_MULTIBFR,RO ; Get the multicast buffer 
08 1 1368 BEQL 208 : Br if none 
D 134 GHB_STS_V MULTI EQ 0 : 
03 F8D7 CF 58 4 rt: L cng B_STATUS,220$ ; Br if multicast buffer is active 
C2 154 BSBW LTSBEALPOOL ; Else, deallocate the multicast buffer 
FB27 CF D4 O8C5 1550 2208: CLRL GHB_L_MULTIBFR ; Forget we had a multicast buffer 
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; Flush all CSBs on the old CSB display queue 
henaue 3308 OLD_CSB8S+GHB AREA, ¥ & Pp he. CSB address 


BVS 
BSBw TSDEALPOOL 
RB 40$ 
MOVB euatee KEEP_CSB,- 
B_B_OLD_cSBCNT 
: Mark LTORIVER as inactive 


€LRB © GHB_B_STATUS 


ENBINT 
RSB 


; Flse, .Gealtocate the CSB 


3 Roe saber of CSBs to keep around 


3; Clear ACTIVE Lp stop timer 


clear SHUTdown ag 
clear MULTIcast buffer flag 
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oe ~SB8TTL TQE TIMER BUILDING AND WAITING ROUTINES 
: BUILD_TQE = Build a TOE 

; Inputs: 

: IPL = ASTDEL 

: Implicit inputs: 

Called in user context 


Outputs: 
RO-RS are destroyed 


UILD_TQE: 
JSB G*EXESALLOC QE ; Allocate a TQE (returns IPL = ASTDEL) 
BLBC RO ; Br_if allocation failure 
MOVE  #TQE$C_SSSNGL TOE SB ROTYPE(R2) ; Indicate single shot request 
MOVAB B*SHUT-TIMER, fOESL_FPC(R2) ; Set wake up routine address 
MOVPSL -(S ; Push current PSL to resume process 
1 ASSUME IPLS_SYNCH EQ IPLS_TIMER 
¢ SETIPL #IPLS_SYNCH ; Sync access to system data base 

MOVQ G*EXESGQ_SYSTIME,RO ; Get current time 

1594 ADDL #LATSC_SHUTDELAY RO ; Calculate expiration time 

1595 ADWC #0,R1 3; Add carry to top half 

4 MOVL R2,R5 : Copy TQE address 

59 JSB G*EXESINSTIMO ; Insert TQE on timer queue 

598 CLRBIT #GHB_STS_V_TOE,- ; Indicate TQE not complete - yet 

599 HB-B_STATUS 

600 BRB 60$ 3; Wait for TOE 

601 40$: BBS #GHB_STS_V_TQE,- ; Br if TOE is complete 

6 : GHB-B_STATUS , 90$ 
MOVPSL <=-(SPY :; Push current PSL to resume process 

604 60S: MOVL G“SCHSGL_CURPCB,R4 ; Get current PCB address 
MOVZBL #RSNS_ASTWAIT,RO ; Set waiting resource 
JSB G*SCHSRWAIT ; Make process wait for resource 
BRB 40$ : Check if TQE expired 

90$: RSB ; Return to caller 


p++ 
3; SHUT_TIMER 

This routine wakes up the waiting process 
Inputs: 
R4 = PCB address 
RS = TQE address 
IPL = IPLS_TIMER 


; Outputs: 
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RO is destroyed 
Ro = TQE address of system non-repeating TQE 
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936 1624 ;-- 
936 1625 
9 16 § SHUT_TIMER: 
9 1 SETBIT M#GHB_STS_V_TQE,- ; Indicate TQE has completed 
\] 1 8 GHB-B_STATUS 
50 01 GA O93C 1 MOVZBL #RSNS_ASTWAIT,RO : Set waiting resource 
00009300 $f 1 93F 1 9 JSB G*SCHSRAVAIL 3; Mark resource available 
50 5 4 945 1 MOVL 0 : coey TQE address 
128 948 16 : BSBW = LT $DEALPOOL ; Deallocate the TOE 
ro DE ace 16 MOVAL G*EXESAL_TQENOREPT,RS ; Setup SYSTEM no repeat TQE address 
05 $982 1634 RSB ; Return to caller 
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; -SBTTL LTSSHUT_DONE = Datalink shutdown complete entry 
; LTSSHUT_DONE = Datalink shutdown complete entry point 

; Functional description: 

Deallocate the FFI block when datalink is all done. 


inputs: 
RG = FFI block address 


outputs: 
RO,R1,R4 are destroyed 
ALC other registers must be preserved 


(FO Se Oe Oe Oe Oe Oe Oe Oe eee 
i 
a 


TSSHUT_DONE: : 
PUSHR #*M<R2,R3,R5> 
MOVL  GHB_L_FFI.RO 
CLRL GHB-L“FFI 
BS BW LTSDERL POOL 
POPR #°M<R2,R3,R5> 


Save registers 

Get FFI block address 
Zero pointer to FFI block 
Deallocate the FFI block 
Restore registers 
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: -SBTTL LTSASYNCERR = Process async errors from datalink 
; LTSASYNCERR = Process async errors from datalink 
Functional description: 

Do Nothing. 


0964 
0964 
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CTSASYNCERR: 
RSB 
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2 1676 wi -SBTTL LTSSETENTRY = Set a new multicast message 
3 ; 7 ; LTSSETENTRY = Set new multicast message 
6 i: : Functional description: 
1 4 ; Take the data from the multicast data area and store it in a new message 
: 79 ; or bump the incarnation so we know to do it next time. 
! 9 ; Inputs: 
16 : ; 
1684 ; Outputs: 
1685 ; RO = success or failure 
1? $ ; ALL other registers are preserved. 
1 3 : Implicit outputs: 
1 i! 3 Multicast timer set to 1 second interval. 
1691 :-- 
1698 
16935 LTSSETENTRY: 
1694 DSBINT #LATSC_IPL 
007E 1695 PUSHR #*M<R1,R2,R3,R4,R5,R6> ; Seve registers 
1208 CLRL & ; Assume no old CXB change flags 
52 FA7B CF 169 MOVL cue L.MULTIBFR, R2 : Get the Multicast Se 
A 1098 BEOQL ; Br if none, go make one 
F81D CF ig hetune es 8, maT Eo 0 ; Bump the incarnation count 
03 F818 CF 1701 BLBC ts 3. Teva Use ds :; Br if multicast buffer is free 
0099 1? § BRW ; Else. do this operation later 
V7 é : Multicast buffer is available, deallocate it! 
56 GF A 1706 S$: AOvB at 8, MC_CHG_FLAG(R2),R6; Save previous change flags 
50 17 RMOVL : Deallocate the old CxXB buffer 
FA61 CF 17 CLAL cig m1 MULTIBFR : NO more mutlicast CXB buffer 
12 1710 BSB ; Dump the buffer 
51 F8 F 4711 108: MOVZ7ZWL GHB _W AC SIZE, pt 3; Get size of data set by LATCP 
dooonnss i 1712 ADOL @xmT_6_mC_SET, 3 plus message quartend 
00000000 ' GF 1713 JsB fo ONONPAGE D ; Now get the buffer 
78 $0 1714 BLBC 3 ne pool for buffer 
08 A2 1715 MOVW CxBSW_SIZE(R2) ze of buffer 
1716 ASSUME Hat CODE EO CxBS8_ TYPE*1 
0118 8F 171 MOV #<1a85'DYNSC_CxB ; Set type and indicate multicast 
OA A2 718 x8$B_TYPE(R2) buffer 
004 8F 171 movw XAT_T_DA a txesu. see % Set offset to start of date 
FA34 CF 33 7 9 ROVL R2, GHB_L_MULTIBFR ; Save address of the buffer 
7 : : Copy fixed portion cf multicast message 
51 FA34 cr 7 4 Rovag GHB_T mc rns SG.R ; Point to msg template 
61 A 1725 OVC orn coLEAgTN, -(R1),- ; Copy the fixed portion of message 
48 A2 1726 TpAT 
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: Copy the variable data set by LATCP 


hovag GHB_T_MC_DATA,R1 ; Get address of variable data 
mOovC GHB W_MC_SIZE,(R1), (R3) ; Copy the variable data 


: Set change flags. and incarnation number 


Rov. GHB_L_MULTIBFR,R2 ; Get back the multicast buffer 
3 @XMT_CHFIG_M_ALL,R6.- =; Set change flags 


XAT_B AC rene FLAG(R2) 
MOVB GHB _B INC 3 Set incarnation number 
xm’ 6 + TUNEAR 
MOVAB XMT_T BATA(R RO ; Address of start of ,date 
SUBL RO. “r3 i Calculate the Length 
MOVW . CXBSW_BCNT(R2) ; Set length of message 


; Copy the node name and descriptor for the START message 


MOVAB GHB_T_MC_DATA+2,R1 ; Get address of multicast variable data 


MOVAB GHB_T STRT_VAR, R3 : Get address of start msg variable data 
MOVL : Save gcérece of ater ° variable data 
MOVZBL (R1)+ ; Get size “yolrest code 
ADDL ai * ; Calculate reas of ands Gane 
mov7ew (RI), RO ; Get size of node name 
INCW 3 ye the byte count 
MOVCS RO,(R1),(R3) ; Copy the node name 
MOVZ7BW cri), rb : Get toe of node do docertocer 
INCW : Include the byte count 
MOVCS RO, (R1),(R3) : ag the node descriptor 
CLRW (R$)+ : ocation text, no parameters 
SUBL R6, R3 : Calculate Length of start message 
ADDW3 #STRT_C_LENGTH, R3, - =: Store Length in holding cell 
#858 NORMAL W_STRT_LEN 
MOVZUL Tir ; Return success 
MOV “i, MON AGL TL ; Send multicast msg on next tick 
POPR Are ts R4,R5,R6> ; Restore registers 
i 


r 
— 
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Initialization -SEP=1 LAT BUGSRE IL TORI R.MAR; 1 (34) 
— -SBTTL LTSUNIT_INIT = Unit Initialization 

; LTSUNIT_INIT = Unit Initialization 

Functional description: 


Ss 


This routine performs a simple unit initialization. 
Inputs: 


RS = UCB address 
Outputs: 
RO-R3 are modified 
TSUNIT_INIT: 
BBS 
| 


rc Be Oe Oe Oe Oe Oe Oe Be Se Oe Se Se Se 
a 
a 


> > > > > > i De ee ee ee 


DOOOOOD DWOOWOWOOOO INNO OO 


MFWUN—O OONOUS UR —“OVOONOUS U0 0M 


05 #UCBSV_POWER,- : Skip if power fail recover 
SA 64 AS UCBSL_STS(RSS, 70S heme pes: 
eaemeedl :' MOVL G*TTYSGL_DPT,R1 ; Address of class dpt 
50 __1€ Al MOVZWL DPTSW_VECTOR(R1),RO ; Locate class driver vector table 
7 | 6Oo ADDL . ; Relocate base address 
0114 cS = 1 MOVL R1, UCBSL_TT_CLASS(RS5) ; Set terminal class driver vector 
010C cS 61 MOVL CLASS_GETNXT(R1) ,UCBSL_TT_GETNXT<RS) 
0196 a MOVL CLASS “PUTNAT(R1) ,UCBSL— TT ~PUTNXT(RS) 
50 28 AS re AOVL UCBSL_DDB(RS) .RO t DDB address 
0c AO) «(10 Al 79 MOVL CLASS"DDT(R1),DDBSL por cig) 
ooes al 796 MOVL CLASS_DDT(R1), “UCBSL~ _DDT(RS) ; Set DDT address in UCB 
799 
54 AS 00 TSTw CBSW_UNIT(RS) : Special action for ucb 0 
07 01 BEQL ; Its is unit zero 
§ CLRBIT #UCBSV_TEMPLATE,- 3; ALL others ieee the templat 
UCBSL_STS(R5) i; bit se they won't clone on " essign 
1D BRB + 3; Continue 
F70E CF 55 5 208: MOVL - GHB_L_UCcaO ; Save address of ucb zero 
We are setting or clearing some bits in the LTAO device here so that all 
later lta devices will have them set/clear the same way. These bits are 
different from the defaults that are set in the sysgen parameters for 


the other types of terminals. 


SETBIT #TTSV_MODEN 
it he TT DECHAR(RS) 
SETBIT s#TTSV-REMOTE,- 
UCB$i “7 1_DECHAR(RS) 


CLRBIT #T12$V_AUTOBAUD.- 
UCB nv DECHA1(RS) 


; Set modem so we do modem 

: processing tor this terminal 

; Set remote so we know its a remote 
; _terminal forever. 

; See setup_ucb routine for reasons 
; We do not autobaud here. 


: eat default tor terminal to hangup 
: ogout. this can so cleared by 
: the user trom his terminal. 


SETBIT 


UCBSL "tl “DECHAT (RS) 


—O COnNO Unf wt—O 


PIR at et wt oo 


taal 
v04-00 


50 


os Ge 


Qo 


>>>r?r>rrrrrrrrPr --— 


ooo Oo 


FOVATMOP PP Peer —--yP 


Zz, 
oe 


ee ee eee 


L] 
Terminal Port Driver 
- Unit Initialization 


SETSIT #TTY$v ft ~NOTIME,- 
UCBSu=T 


FP | O ONO UNE ery 


40$: 


~ 
oO 
bad 


oO 
So 
- 


erat rae 


TIPRICTL(RS) 


; Finish initializing UCB. 
,TSuCB_INIT 
0$ 


Asap 
R 


C$ 
CSB 


BS. LT_CSB(RS), RO 


~TIMRESET(RO) ,- 
{TIMEOUT (RO) 


AX/VAS Ma v04-00 P 4 ut 
14328: 33 LAT. BUGSREILTDRIVER. MAR; 1 ~— Gay vO 


3; no timer service please 


3; Initialize the terminal UCB 
3; And leave 


On power fail, reset the timeout 
. $B, just torget it 

é just wait on some thing 
- happen. 
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LTDRIVER - Local Area Terminal Port Driver -JAN-1985 17: AX/VAS Macro v04-00 Pa LT 
LOenOUS LTSUCB_INIT = Initialize a terminal UCB =36N= 1982 11: ‘$6: $3 YET. BUGSRCJ iL TD DRIVER.MAR; 1 - Gg ) vg 


ae ! oe -SBTTL LTSUCB_LINIT - Initialize a terminal UCB 
aoe ! ; LTSUCB_INIT = Initialize a terminal uCB 
aae ! rt 3; Functional description: 
my : 4g : Init the terminal UCB before starting a process to use it. 
AIB 1844 ; Inputs 
ASB 1845 ; *RS = UCB address 
A9B 1 rf : 
AIB 1847 ; Outputs: 
A9B 1 rk 3 RS = UCB address 
QOA9B 1849 ; RO, R1 clobbered 
OA9B 1850 ;-- 
OA9B «1851 
A9B 1 26 LTSUCB_INIT 
54 AS B65 OA9B 185 TST CBSW_UNIT(RS) ; Is this unit #0? 
3D 13 OASE 1854 BEQL : Br if yes, skip it 
5C AS B85 OAAO 1855 TSTW UCBSW_REFC(RS) 3 ah channels attached? 
21 iF} OAA3 1326 BNEQ : Br if yes, don't reinit UCB 
01 54 a 7 ee 1857 ASHL UCBSW_UNIT(RS) ,#1,R1 ; Build unit's bit mask 
0080 ¢S 51 B80 OAAA 1858 MOVW 1, UCBSB_ERTCNT (RS: ; Save it 
0141 C5 94 OAAF 1859 CLRB thet LT-LOCID(R5) : Flag as available (no local slot indx) 
FAOS CF DE OQOAB3 1860 MOVAL Uy ECTO ; Set the port address in ucb 
0118 C5 QAB7 1861 UCBSL_TT “PORT (RS) : _in case port driver reloaded 
OOcC CS) D4 OABA 1366 CLRL ati “TT_WFLINK(RS) 3; Zero to force reinit of queue head 
51 0114 CS DO OABE 186 MOVL UCBSL- TT“ CLASS(RS5),R1 ; Address class vector table 
08 Bi Ssé16 RAC? 1885 sos JSB @cLass_ SETUP “uCcB(RI) ; Init UCB fields 
01 90 OAC6 1866 MOVB #UCBSA_LT_DATA,- 3; Look for data first time 
0142 C5 OAC8 1867 UCBSB_LT- DATAW(RS) : 
50 8F 90 OACB 18638 MOVB #LAT$C-UCB pur si 7 : Init buffer 
014A C5 OACE 1869 uCBSB_CT_MAXC(R5) ; one 
0148 CS 94 OAD1 1870 CLRB UCB$B_LT_CURC(RS) 3 nee 
0146 CS 94 OADS 1871 CLRB UCB$B_LT"TCRED(RS) : wae 
0120 CS B84 OAD + 144 CLRW UCB$W_TT-OUTLEN(RS) : No data waiting 
05 OADD 1873 90$: RSB 
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LTDRIVER = Local Ar 5 17:22: 
vita LTSSTARTIO = Start 1/0 routine Pera 1 14328353 LEAT BUGSRETLTORIVER.MAR: 1 (36) 
nt ] o -SBTTL LTSSTARTIO = Start I/0 routine 
me } r 3 LTSSTARTIO - Start 1/0 Operation 
4] } 8 ; Functional description: 
ADE 1 9 3; This routine is entered from the device independent terminal startio 
wv | } § ; Routine to enable output interrupts on an idle unit. 
ADE 1884 ; Inputs: 
ADE 1885 ; 
ADE 1 § 3 Re = character and cc = plus 
ADE 1 3; RS = address and cc = minus and R2 = count 
OADE 1888 ; RS = ucb address 
QADE 1889 ; 
OADE 1890 ; Outputs: 
OQOADE 1891 ; 
ADE 1 3 : RS = UCB epéress 
ADE 1893; RO,R1,R2,R35 and R4 are modified 
OADE 1894 ;-- 
QADE 1895 
OADE 1896 LTSSTARTIO: 3; Start 1/0 on unit 
0760 8F BB OADE + +44 PUSHR #*M<R5,R6,R8,R9,R10> 
58 0134 C5 00 OAE2 1898 MOVL  UCBSL_LT_CSB(R5S, RB =; Get Circuit State Block 
59 1 es 133% BEQL 85$ ; Br if UCB is hanging up 
QAE9 1901 3 Dispatch on our terminal UCB state 
OAE9 1306 ° 
OAE9 190 $DISPATCH UCBSB_LT_STATE(RS), TYPE=B,- 
OAE9 1904 <- 3; state ; action 
OAE9 1905 <JCBSC_LT_STATE_KILL 168$>,- ; KILL state, flush data 
OAE9 1906 > 
OAF1 1907 
ad 1308 ; ALi other states -- okay to send data 
01 88 OAF1 1910 BISB #UCBSM_LT_DATA,- ; Assume output data available 
0142 C5 OAF3 1911 UCB$B_I.T_DATAW(RS) 
OAF 1316 ; 
~ a : Buffer data locally 
OAF6 1915 5$: $DISPATCH UCB$B_TT_OUTYPE (RS) , TYPE=B,- 
OAF6 1918 <- ; type 3 action 
AF6 1917 <0 170$>,- : No data, allow more calis 
Are 1318 <1 10$>,- 3; Single character 
|AF 191 > 
00 1920 3 
+ 1 3; Default to burst data 
53 O11C C5 go 13 g MOVL UCBSL_TT_OUTADR(R5),R3 ; Get output buffer address 
52 0120 ¢5 C 3 4 MOVZWL USSU. TT LOUTLENCRS) Re : and charcter count 
21. 211 " 12 5 BRB $ ; Continue in common path 
50 O14A CS’ 9€ f 19 : 10$: MOVAB UCBSB_LT_MAXC(R5S),RO 3; Get address of maxc 
rt 91 11 19 § CMPB (RO) +> (RO) 3 Any room left ? 
f 14 14 19 BGTR 408 ; Br if yes 
6 97 + 19350 DECB (RO) 3; Make room for it 
60 96 18 1931 20$ INCB (RO) 3; Update count 


0146 3 
0146 C5 


OOCE 


0148 C5 


Sete Ge Ge Ge Ge Ge Ge Se 


85s:  BRW 168$ 
90$:  MOVAQ csB 


OCD NAN EAN = § SO OOO NAME NN © OOD NAME WN $$ O OONAUE UT QOONOULSUMN Ww 


SSNS AAAAAAA PANNE FEEL LLL LSE 


ee ee ee ae ee ee a ee a ee ee a ee ee ee ee a ee ee a a ad dd 
WDODODODODOOOOOOOOOOOOOODOODOODODOODOOOODODOOOOODODOOOOOO0000000000000 


bth te tert whet 4 


—s Sete te Se Ge Sete 
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tart 1/0 routine LAT.BUGSRCILTDRIVER.MAR; 1 
MOVZBL (RO),R1 3 Get count 
ADDL »RO : Form destination address 
MOVB R3, (RO) 3 Load character 


We are setting up the address and count of buffered characters in 
case we are balanced and we should send these characters in a msg 
to come out of balanced mode 


MOVZBL UCBSB_LT_CURC(RS), Re 


; Get count of buffered charact 
payne UCBSB_LT CBUF (RS), ‘ pea 


; Get address of buffer 


30S: LAG VERRT ae oes : Br if we can we send an 
e oe nso e 

60s: pry 908°" Aa OS pace tag 

: Transmit data to concentrator 


70$: ECB YCBSB_LT_TCRED(RS) ; Use a credit 
BGEQ 0$ 


Br if we have one to use 


80$: INCB UCBSB_LT_TCRED(RS) : Else, no credits 


Woops. We find we have data and we can't send it anywhere since 
we have no credit. Never mind we can just leave here. We will 
receive a credit ty eventually. We are set non-balanced here 
and if we leave so that all the int bits are turned off in tne 
other ucbs, and this one, then we won't get anymore gpmecrese tee 
aes calls. When we get the credit message we will start things 
up again. 


Baw 180$ 3; Leave quietly 

We have nowhere to put the data and the circuit is down, so just 

clear interrupt expected, discard the data and return 

Leave, flush data & clear INT expected 


Q_XBUFQ(R8) ,R6 Get transmit buffer queue address 
» R6 Is there a transmit buffer? 

Br if no transmit buffer, ignore it 
We have data for the server now 


No more unsolicited messages 


(RO 
0$ 


MOVB #1, CSB_B_NUM_SLOTS(R8) 

SETBIT #FLAG V-RRF,- 
CSB_G_FLAG(R8) 

MOVW  #LATSC“HOST TIMER, - 
CSB_W-XMTTMO(RS) 


MOVL ) 

MOVAB UCB$6_LT_CBUF(RS), RO 
CMPL R3, RO 

vee (ONEG 1 bs 

Reading the code I noticed the following Line(s) would not work if 

the startio entry were to discover that it were balanced after 

previous previous calls stored data in the UCB extensions because 

we were not balanced. I guess that never happens, because UCB$B_LT_CURC 

would not be equal to one, as assumed below, but some higher value. BEM 


DECB UCB$B_LT_CURC(RS) ; Yes. Don't save the character there 


Set retransmit timer 


Get the buffer address 
Address the UCB extension 
Is that our buffer? 

Br if no 


00$: 


Be ca ad aD et tk a td 


SOOGOGOOGOOOOCOOSOSOSOSOSSSOSOOSSOSOSSGOOOoOooooOoooooooooooOooOoOOOOOoOoOoNO 


FREES FAWN AAI POPOPONMIPONINININD 2 2 3 SS 


SOOGOSOGOOOOO 00000000000 


VIVIOW OOVMon 
PENIS OOD NAME WI § OOD NA WNL WIN OS OO NAN WN OOD NAME WIN 0 OODNAUS W000 


MPwP WUWMOO—Wu! 


; the startio entry were to discover that it were balanced after 


AON YP WYUPOVIPON 


FU WOODING 


SONNY 
= @OOINI PO 


1408: ; 


ARTA NOOWWWW— MOONS SO 


OGOMOOOOOOOOoooorWwwwoaw 
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rea Terminal Port Driver =JAN-1985 17:22: AX/VMS Macro v04-00 Pa 49 
= Start 1/0 routine Bon 1382 14:28:83 LEAT BUGSREILTORIVER.MAR: 1 on (36) 
MOVAB XMT_T_MDATA(R6), RY ; Address of the slot to use (first) 
MOVZBL UCBSBILT_SLOTSZ(R5), R10: Get the maximum slot size 
ASSUME SLT_B_DSTID EQ 0 
ASSUME sLT BLSRCID EQ <SLT_B_DSTID+1> 
ASSUME SLT_B_COUNT EQ <SLT_B-SRCID+1> 
ASSUME SLT_B_CRED EQ <SLT_B_COUNT+1> 


ASSUME UCBSB_LT_LOCID EQ UCBSB_LT_REMID+1 


MOVW UCBSB_LT_REMID(R5), (R9)+ ; Load remote and local ids 
MOVB R10, TROT+ 3; Save the character count 


: Extend credits to concentrator if needed 


ADDB3 UCBS$B_LT_XCRED(RS),- =; See if we need to send 
MLATSC_MAX_RCRED,RO : a credit to the remote 


ADDB RO,UCBSB_LT_ CRED(RS) ; Add them to total credits to send 
SUBB RO,UCBSB_LT_XCRED(RS)  ; Credits have been extended 
MOVB  UCBS$B_LT“RCRED(R5), (R9)+ ; Load credits 
CLRB sd UCBSB“LT“RCRED(R5) ; bon't send them again! 
1108: CMPL Rg R10 3; Do we have more than we can handle? 
BLEQU 1268 : Br if no, its just fine 
MOVL R10, R ; Use just what we can handle 
SUBL R2, R1 3; Adjust what we have left 


: Reading the code I noticed the following Line(s) would not work if 


; previous calls stored data in the UCB extensions because 
; we were not balanced. I guess that never peppens. because R2 would 
: not reflect the UCB extension data area. BE 


ADDL R2,UCBSL_TT_OUTADR(RS) Update UCB state 
SUBW R2,UCBSW_TT_OUTLEN(RS) Update UCB state 


aie R 3; Save the UCB address 

MOVC | Caleta $ Copy the strin 

POPL R 3; Restore the UCB address 

MOVL R3,R9 ; Set address of next available byte 
TSTL R1 ; Do we have any left? 

BEQL 155$ 3; Br no, all done. 

JSB ay BSL_TT_GETNXT(RS) —: Else call back class driver fo> more 
BEQL 150$ 3; Br f no more to be haa 

BGTR 140$ ; Br is single character 


: Found a burst of data 


MOVL UCBSL TT _QUTADR(R5) .R3 ; Get output buffer address 
MOVZUL VERSH LTT _OUTLENCRS) JR 3; _and charcter count 
BRB 10$ 3; Else buffer address 


: Found a single character 
0 ; Else, just one character returned 


VL #1, R2 
MOVB RS (R9) ; _and fake many chars returned 
MOVL R9, R3 Copy buffer address 


ne balanced, so buffer data if we can. 
R2 = count 
R35 => data 
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LTORIVER = Local Area Terminal Port Driver =JAN-1985 17:22: AX/VMS Macro v04-00 Pa 0 LT 
vita LT STARTIO - Start 1/0 routine Brann 1882 14:28:83 LAT .BUGSREIL TORIVER.MAR: 1 - (32) va 
Bc ol “44 *$ BRB 110$ ¢ and continue 
64 AS AA OBDA 48 150$: B1CW #UCBSA_INT,,UCBSL_STS(R5S);Allow more start io calls (checked) 
2es | O if 3 BICE AUCBSRALT BATA cas) '¢-*M@ Output date available 
5 9 66 6«C BE 155$: SUBL3 R6, ROT R 3; Make the length of the data to 
60000068 F US 3H é SUBL BuAT’T DATA, R2 3; transmit ’ 
D6 OBE 3 INCL ; Round end address of data 
59 1 CA BF 4 BICL #1,R9 é eee 
1C 88 9 OD BF 5 MOVL R9, CXBSL_T_ENDADR(R6) 3; Store it in the CxB 
5 é ¢ BF § SUBL #<<XMT_T°MBATA= - 3; Make total characters in slot 
BFA XMT_T_BATA> + = ; minus those already accounted for 
aP A 28 STA! DATA>, R2 3; beyond the circuit and slot headers 
52 46 52 90 OBFA MOVB Re, <SLT_B COUNT+= ; Store that count away. 
FE 60 XMf_T_MDATA>(R6) : In the first slot maxc 
are 6¢ IF DEFINED LT_XMT_CHECK 
Fe 64 : debug code 
BFE 066 MOVA = CSB_T_CIRCHDR(R8),- ; Move the circ header 
BFE 6 XMT_T_DATA(R6) ; to look at real msa 
BFE $8 MOVZBL XMT_B_NUM_SLOTS(R6), R1 3; number of valid slots 
BEE BNEQ 1608 3 We have some, skip check 
BFE 0 ; No slots - we must only have a circuit header! 
BFE 2071 MOVAB  XMT_T_MDATA(R6), RO ; Past circuit header 
la 4 i; CMPL RO, R9 : Only have a circuit header? 
BFE 207 BEQL «=s«160$ : Br if yes, okay 
+83 is DEBUG ; Not correct 
BFE a: .ENDC = :;_: DEFINED LT_XMT_CHECK 
54 S88 00 are 28 160$: MOVL RB, R4 ; CSB address for call 
Oe 9C C 7 BSB = LT $XMITONE ; Transmit the buffer 
0760 8F BA C 0 POPR #*A<R5 ,R6,RB,RI,R10> 
05 : 1 RSB 
co9 i 168$: 3 
: 4 : 3; Discard output data, no session active ! 
0040 30 C 9 6 6sBW LTSFLUSH_DATA : Flush the output data 
coc 8 170$: : 
: : i 3; Allow more calls to startio 
6405 02 AA OC 91 61cw #UCBSA INT, = ; Allow more calls here 
C : UCBSL_STS(R5) : 
0760 8F Ba C 95 180$: POPR #°A<R5,R6,RB,RI,R10> 
5 OC14 94 RSB 
£18 S090 
a 
He 
£13 St01 


aD ct a td 2 eed a 
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LTDRIVER - Local Area Terminal Port Driver -JAN-1985 17: 'AX/VMS Rae ro V04-00 P 1 
aa i [TESTARTION = Start 1/0 rouring ga2tNe] wes 14:26:53 HERE es ceRese eater mans: P29 «8d 
54 14¢ 9 C15 21 A 190$: MOVAB UCBSB_LT_CBUF(RS), 3 address of character sbut fe 
4 p CIA 21 CMPL 4 RE : Is this s the heek if tes. avert 
C1D 2104 BEQ Os. 3 yes, check see ful 
50 0148 . 3 ; } 5 ot ag iets LT_CURC(RS), RO é Coteul oe eames oF : .. 
3 ou 
14a cS 50 RS C36 21 5 SUBB3 RO, asl a 
C2c 21 3 yee, LT_MAXC(RS), R1 3 
52 51 1 Cec 21 CMPL : Do we have room? 
OF 5 OC2F 21 9 BLEQ 1 3; Br f no, so shut output off 
0120 f ¢ d 11 CLRW y BSu TT_OUTLE hy: 3; Else, forget about the, Sete here. 
0148 cs 0 OC 16 ADDB2 fese. LT_CUR ¢RS) ; Calculate the number of chars 
1 644 ¢ A 113 pote MOVAB the) RO), "RI 3 and get address to put them 
B C 115 PUSH 3 fone the UCB address 
61 63 C4 116 MOVC Rg (RS) (1) ; the strin 
BED $t3 1 POPL R 3 Ree ore the UCS address 
re : 4 hf 118 210$ CMPB UCBSB_LT_CURC(RS), - 3 Is buffer full? 
C4E 2120 YCBSB_LT_MAXC(RS) 
18 3 121 BGEQ : Br if yes, shut = output 
010C DS i cs 1 § JSB8 SUCESL. TT _GE THAT (RS) ; Else, get more dat 
1 C54 21 BEQL 170$ 3; No more data, so just return 
FE 31 3c 36 ; : Baw ; Else, process data 


J 
d 
d 
d 
J 
d 
d 
J 


2 
voerO0s” cobPeabatntaTeeminaty Pert ordaes, output d S-SeP-198e 11:40:82 ECATeBuGeRES rDRiven.man:1 "2% (39, 


: ! - -SBTTL LTSFLUSH_DATA = Flush buffered output data and drain TT buffer 
¢ ; LTSFLUSH_DATA = Flush buffered output data and drain class driver buffer 
c ; Functional description: 
¢ } ; Flush buffered output data and drain class driver output buffer. 
¢ 135 : Inputs: 
: 1 3 a RS = UCB address 
C 138 : Outputs 
Cc 1 3 3 eo Rs is destroyed. 
C 4 140 ;-- 
C 14 
C59 214 Lier use DATA: 
010C DS ¢ 059 2145 208: JSB8 SYSOAL. 11 68 TNT CRS) ; Call back for more to class driver 
0 1 30 144 BEQL ; Br if no more to be had 
F 11 OCSF 2145 BRB 208 : Else, drain all output data 
0120 C ee C61 138 90$: CLRW UCBSWU_TT_OUTLEN(RS) ; Clear CLASS driver output data 
0148 C 3g e3 es sie UCBSB_LT_CURC(RS) ; Dump UCB output buffering 


H 2 
CARS CEre'HL ARS ETE outnu SRRRIBEE TBE MODSLRES BREE ass 


-SBTTL LTSABORT = Abort (flush) buffered output data 
; LTSABORT - Abort buffered output data 
; Functional description: 
; Abort (flush) buffered output data 


WI O 


Oe Oe Se Oe Oe Oe Oe Oe Oe Se Oe Sees 
+ 


VENI TS SS SSS SSS SSS ss 


a a ad ed a ad td ed dd dd dd ss = 


Ss SS SENSAEERAS SSLS ALUN ISTE STORES SSIES 


I 
nls « WB actress 
; Outputs: 
LTSABORT: 
oi38 C8 CLRB UCBSB_LT_CURC(RS) 3 Dump ucB but tering 
120 ¢ CLRW UCBSW_TT_OUTLEN(RS) 3 ing class driver data, 
3 = t have e\sappeered) 
04 B1s8 #UCBSM_LT_ABORT,- 3 Ma requested 
0142 C5 UCBSB“LT~DATAW(RS) 


~~ 


-SBTTL LTSFLOW CHANGE = Change flow control 


+ 


Deleleielelelelelelelelealelelelelelelelelelalinl elimi ml mimiel mimi lll mmm) 


; L TSFLOW_ CHANGE 
7 Funztion: Inform terminal server of cha in host flow control. 
g 3 The terminal server will mimic host policy. 
7 ; Inputs: 
Fy sage RS = UCB address 
: Outputs: 
?. i 
<7 LTSFLOW_ CHANGE : 
08 88 0C7 “BISB oucesn tt tt LOW,- 3; Flow change 
0142 C C7A UCBSB_LT_DATAW(RS) 
05 44 RSB 


I 2 
LTORIVER - Local Area Terminal Port Driver -J 7: RECS Be ° p 4 
aa LTSXON = Resume input stream {nto class g-ue8-} 382 4 ‘36: 33 LAT.BUG BRE serbRiven.maR: 1 — (39) 
> -SBTTL LTSXON = Resume input stream into class driver 
LTSXON = Resume input stream into class driver 


ts: 
e = KON character 


Fee Oe Oe Oe Oe Oe Oe Oe Oe Se ee 
aa 


= UCB address 
Outputs: 
R3 is destroyed 
TSXON 
1803 8F PUSHR #*A<RO, at ety on 3; Save registers 
1 CLRBIT FUCBSY. LT ; Clear overflow indicator 
1 ert “Parsi sins) 
50 013¢ ¢5 1 MOVL INPBUF(RS),RO ; Get address of input | buffer 
1 BEQL 3; Br if none, nothi 0 do 
0147 C5 : InCcB UEBSB _LT_XCRED(RS) ; Okay to return cr it” now 
1 IF DEFINED LT_CRED_CHECK 
1 BLEQ j 3; Br if ok 
1 108 DEBUG ; Else, ~ “oon too far 
" — ,ENDC «= gs: DEFINED LT_CRED_CHECK 
ASSUME UCBSB_LT_LATSTS EQ UCBS8_LT_DATAW+1 
1001 8F BISW —_ SA_LT wey! > UCBSA_ LT_DATA,=- ; Data potentially available 
0142 C5 ath "ch BA tts ind input stream in enabled 
646 AS A B1S8 wue atte yo UCBs L,STS¢ RS): Force no date to be returned 
5C O2A MOVZWL INB_W "Btn TER ; Get count of bytes remaini 
28 7wtsINB-W “BorF in ¥ mt ; Get offset to vtert of input data 
ADDL RO,RIT 3; Calculate address of input data 
: Feed remaining data into class driver 
30$: MOVZBL (R11)+,R3 ; Get next character 


a @uCBSL_ ni fury ens : Pass character to class driver 


#UCBSV_L Br if overflow, wait for next XON 
OF 0148 ¢ 1 uc +t} ~PaTsTsins), 508° 
fF e3 SOBGTR AP : if mo 
50 ee ROVL uc LT_INPBUF(RS),RO ; eee” teout buffer address 
BSBu LTSOEALPOOL : yo ate @ the input buffer 
013C¢ & CLRL UCBL._LT_INPBUF (RS) . fer pointer 
42 SCS: BICcB @UCBSA_LT_INPUT : Input setes is now disabled 
o143 f UCBSB-LT “LATSTS(RS) 
180 44 708: POPR #*°A<ROTRIR11 AP ; Restore registers 


-SBTTL LTSXOFF = Stop input stream into class driver 


¢ 
LTSXOFF = Stop input stream into class driver 
Inputs 


R3 = KOFF character (*S or *G) 


T 


J 2 
rSOFF St “ott stream into class S-SEP-1986 11:40:82 EAT ouceREScIDRIveR.man:t 2° (35) 


RS = UCB address 
AP = count of orere remaining 
R11 = address nput data 
; Implicit inputs: 
UCBSV_LT_INPUT bit must be on UCBSB_LT_LATSTS status byte. 


; Out ts: 
“ R3 is destroyed 


it 


TSXOFF : 


SS SINSA ANI SCONE ERAS Se SCENES 3 
2 


7 $ ear Fal SSF R4,R5> ; Save pesisters 
07 3 C R3 ,@1TY_C_BELL ; as s is @ control ¢? 
44 (1 BEQL : yes. do nothing 
06 ~«C BBC #UCBSV_LT_INPUT,- : er it nput stream not enabled 
3€ 9143 5 UCBSB-LT-LATSTS(RS) ,90$ 
1 § 01 CMPL AP, #1 3; Any data to wer ters (counting current) 
15 BLEQ 908 ; Br if no, skip i 
Cc D7 DECL : Else, account tar character just passed 
SETBIT PuCBSV _LT_OVFLOW,=- 3; Set overflow indicator 
UCcBSB-LT “DATSTsins) 
52 013 C5 MOVL y BSL_CT_INPBUF(RS).R2 ; Get input buffer 
16 #1 BNEQ 3; Br if one there 
51 5¢ 9O C ADDL3) = @INB f LENGTH,AP,R1 ; Else, calculete Length of buffer 
"GF if JSB GE XESALONONPAGED ; Allocate 2 butter 
1D E BLBC RO, : Br if no 
013c CS 4 MOVL R2,UCBSL_LT_I (RS) ; Save address of input buffer 
08 A2 mOVW R1, INB_W-SIZE(R2) : Set size of input buffer 
308 ASSUME IN6 B SPARE EQ _B. TYPE+ 
OA A 13 % D0 MOVZ7BW #DYASC_BUFIO, INB_B_ “TYPE CRE) 3 Set structure type 
02 A C 05 MOVW = AP, INB-W_BCNT(R set size of remaining s string 
C 80 of mOVW = #@INB_C “LENGTH, INB_W _Borrir Set offset to start of date 
4 : Don't return credit... wait for XON 
0147 (S97 10 bECB «=—- UCBSB_LT_XCRED(RS) : Don't return credit 
14 If wade LT_CRED_CHECK 
14 cmPB $6 CT eg tie a : Did we goof? 
14 s-LATSC, MAX RCRE 
14 BGEQU§ 10 : Br if oka 
° 108 DEBUG : Else, we lent too far 
12 -ENDC 5; DEFINED LT_CRED_CHECK 
e.. 5¢ 28 \s MOVCS AP,(R11),INB_C_LENGTH(R2) ; Copy the date 
3 " 19 § 90$: POPR #*A<RO,R1,R2,R4,R5> ; Restore registers 
5 ot? RSA : Return to caller 


K 2 
VOenOOs” Lrehe tRCVASG FAS beesetese hi Receive gag the 8 fe <b 33 LENT BuGsRE dL TURiveR. MAR; 1 na (28) 


-SBTTL LTSFFI_LRCV_MSG = FAST Interface Receive Complete routine 
LTSFFI_RCV_MSG = FAST Interface Receive Complete routine 
Functional description: 
-¥ time a frame is eee ee ee. . passed to the cheese copted 


or each terminal represented within t rame. Echoed data "$ ¢° 
into a frame to be synths y A oo ts ,*- concentrator, 

the transmit frame is queue freneatssion after appropr Bin, 
virtual circuit iene A ons are performed. 


Inputs: 


R3 = CXB address 
R4 = FFI address 


IPL = SYNCH 
Outputs: 
R1-R5 are preserved. 
The interrupt is dismissed when the received frame 


has been compeletely Tak driver The CXB is always 
returned to o the datalink driver. 


Be Se Se Se Ge Oe Se Se Se Se Se Ge Se Se Ge Sets Se Se Se Se Se Ge Se Se Se Se 
+ 


LATSC_IPL EQ IPL$_SYNCH 


= = - 3 = = = Soc 
ii a a ed ed ed ed 8 = = ed 


BWNN NNW EF QO AMAA AMAAAAAOHAAOAOAAOAAOAAOOAOAAOAOOAOAOO 


ASSUME 
LTSFFI_RCV_MSG: 
PUSHR 


SFFE BF 8B #°A<R1,R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11,AP,FP> ; Save registers 
5618 4 3¢ MOVZWL CXBSW_BOFF(R3) ,R6 ; Get offset to start of data 
56 5 co ADOL R3,R6 ; Get pointer to start of data 
- IF DEFINED LT_HISTORY 
F Save history of receives 
50 66 3 , MOVAB CYB FLAG(R6), RO ; Address is circuit header 
FOFA BSBW L Y ; Store the data 
-ENOC 53; DEFINED LT_HISTORY 
INC_CTR GHBSL_RCOUNT*+GHB_AREA ., Count frame 
D357 : Validate received frame 
50 02 a6 ; : : MOV ZL RC W_DSTID(R6) ,RO ; Get remote vei 
76 BNEQ 3; Got index, okay 
u CMPB ne yal CASTOR TOFL AG. V_ATYPE>!- ; Is this a start message? 


A" RAST 
mtv “Ar MrcacRes 


8 te 


; START message received on an inactive circuit, try to start up a 
; new circuit. 


:; Br if no, signal protocol error 


tL 2 
- Locel Area Terminal Port Driver -J 5 17: AX/VMS Macro v04-00 P 57 
creehd -RCV_ASG = FAST Interface Receive are $3 i] ‘36: 33 CAT BUGERE rate LTDRIVER.AAR; 1 un (40) 


Lies 


eat $L_UCB+GHB_AREA 
STW RCV_W_SRCID(R6) 
BNE 


a RCV_B_SEQ(RG) 
He hey CIRCUIT 
SRO. 198 


a Link <1 still tele 
—— t accept circuit 
1s eee source 1D zero? 
ite? protocol error 
: the correct sequenced msg? 
tine protocol error 
Initia ze Sndver allocate CSB 
Go ahead, CSB 


Ee BLB ress in 
startup: any crenenits rt ges 
83 TSTL Are we ignoring a duplicate start msg? 
~~ er if yes . retrensait start msg 
INC_CTR gut RESOURCE +GHB_AREA ls to use 
11 BRB 5 toe ignore it 
31 BR 1908 ; Long branch 
” ~ + V START FP : ee START message received 
; cont 
% + CEROSt _SESRANEE IP : _ ole se on CSB index 
Sa ROVZBL SEROOU CORI 5D PF ; frvel id CSB index 
11 BRe $ 3 continue 
" a SenOOv _COBSTALE .FP : oes Be. CSB index 
; con 
mOV7BL . V_INVALIDREMID,FP : owe sb remote circuit id 
9A MOVZBL $8 V_INVALIDSEQ,FP Invalid sequence number 


cont inue 
BIT PROT OMASK+GHB when: aset bit ones 


SET 
Ince CTR cu PR pag Oro» 
kT R3,R4,R eh a at RO. Rita aP FP> ; Restore registers 
s Return to caller 


NS 


A duplicate frame was received 


NC_CTR GHBSL_DUPLMSG*GHB_AREA ; We received a duplicate message 
CTR Cues ver * a AREA ; We are retransmitting a mess age 
PLY_REXM ; This data is stale, resend bulfers 


Non-zero circuit ID ! 
- circuit must be active already 


Inputs: * . cee tae pa al 
RA = nha to. start of data 


mee Oe Ge Oe Ge Se Ge Se Se Se 


$ 
3 
o 


get CSB index 
check 
or ¢ bad Sn -% protocol error 


6r Brit invatia ¢ CSB. protoce! error 
Valid reference ? 
Br if no, Stale reference to CSB 


RO,R1 
. Ri. #LATSC_MAX_CSBS 
ROVL GHB_L_CSBTABLE~GR1].R8 
CRP R0 CSB_w_LOCID(R8) 

95$ 


$$$ _— 


PPP I III II IIIT 
Oe td a et a 
CONVO AR UO 
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N2aSe FE 
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r 
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a 
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Lroniyer ocel Area Term inet pert aoteen 17:48: $3 yancves Macro v04-00 Page B 


\T FFL_RCV, ASG - nterface Receive remts Hi 


LAT BUGSRCILTDRIVER. MAR; 1 


CY : 9 INC_CTR etal idiom ; Count one more rcvd asg 
+4 re 4 3 Check ACK number and complete any transmits acknowledged | 
5 as” A A tt 4g 1308: RovzBL RCV_B,A ACK(R6), ; Get the ack from the message | 
’ : | 
Sed Ge GR PROS Saute eae 
3; Loo r a r 
51S +4 : ROVL R2,"RT ; cic : | 
1 1 00 £4 2630 1408:  MOVL (R1), R1 ; Next item in queue 
3) $1 p +H 431 1308; CMPL Ri, R2 : End of queue = 
DEA 06 ; Bea. «=ss«1968 : Done with that search 
6E Al 62 ae aR +} 4 SUBB3 CSB_B_XSEQ(RB), - ; Normallize the seq of message 
f ‘ ‘ XMT_B_SEQ(RI), ; 
53 50 91 ODF 6 C a0 R3 ; If the seq is E presser than ack, 
ED 14 ODFS 26 BctTR 146s ; wait on another ack | 
54 sé61 +4 fF 4 $ MOVL (R1), RS ; Save Link to i ites j 
5? 661 DFA 26 REMQ (R1), R1 ; Remove acked message from wait queue 
38 68 4661 — COE DFD 2440 INSQUE (R1), = 3; And insert on tail of transmit queue | 
01 441 9CSB_Q XBUFQ+4(RB) $ | 
59 AB O97 1 264 DECB CSB8_6 RMTCNT(RB) ; One Less to transmit 
51 54 00 ea) MOVL RG. RT ; Restore Link 
DE 11 7 4s on BRB 156s : 
+4 446 ; ; Invalid sequence number received | 
$9 44 inc CTR CSB_2_LCB+LCB_W_SEQ_ — W ; Bad sequence number 
89 «(11 11 264 100$ ~ also’ count as duplicate 
12 2650 1808: ; 
i 31 : No transmit buffer available | 
1 38 inc_CTR SeBtL HORDE ROCHE _AREA ; Not transmit buffer available 
tF77 0=—s 31 10 t38 BR ; And exit 
"4 § : Make sure that we have a transmit buffer to respond with 
52 34 a8 7 4 $ 190$: Movac C _0_XBUFQ(R8), R2 3; Look to see if we have at least one 
62 5 0 4 26 CAPL R (R2) : transmit buffer : 
EA 13 7 r+ BEQL ; Br if None, just retransmit and wait 
$6 . B0 9 $86 mOVY CSB UT HARE SET CaS). 's aoe etaee for timeout of circuit 
C 26 CSB_W_TIMEOUT (RB) ve. got a valid mossege. 
64 AB 06 A6 91 464 CMPB Rey B_SEQ(R6) ,CSB_B_ eseaind)™ i Righ sequence 
D4 = 12 $63 BNEQ 1708 # no, retransmit all eccveges 
is 
‘ ; Dispatch on message type 
cnt : Inputs: 
473 : RB = CSB address 
ore : R6 = CXB address | 


ocal Area Termina 


FFI_RCV_MSG = FAS Interface Receive LAT. BUGSRCILTDRIVER. MAR; 1 


t time it’s the rext 


59 
(40) 


number 
Tell other guy we got this one 


(R6),CSB_B_ xackins) : 
mlb Te ; tain the message type 


su S28 3 
pe EF 


; Dispatch on message type 
Bas 


- ; RUN mogeage received 


a. 
CRON CV_RUN_MSG>, 
<MTYP~C-START RCV “SyART MSG>,= 


; START message received 
HALT message received 


RCV_HALT_ASG>,= ; 


PPL LEE EEE 


DONO UE WHO 


LTSFORCE_HALT 


; ALL others, force halt 


ma 
“nw 
te Tel 
ms 
oe 
me 
— 
o7 
3 
ze. 
ms 
nea 
nn 
Ee 
ov 
mo 


rt Driver -JAN-1985 17:22: AX/VMS Macro V04-00 Pa 
Bott 882 17:25:53 LEAT BUGSREICTDRIVER.maR:1 29° 


~SBTTL PROCESS RECEIVED MESSAGE 


Other guy is halted or all screwed up 


LTSFORCE_HALT: 3; receive halt msg 
: invalid circuit state in ms 
: invalid circuit state in CS 


OOQOOOQOOOCOOSCSooO 


MMMMMmMMmMmMmmmmMmmmmmrnrnecry 


LTSSTATE_HALT: 
BsBw 


+ 
+ 


; invalid local vci 
SETBIT #GHBSV_HALT,- 
L_PROTOMASK+GHB_AREA ; Circuit forced to halted 
INC_CTR GHBSL_-PROTOCOL+GHB_AREA ; Increment protocol error counter 


LTSCIRCDEAD :; Circuit is dead now 
LTSREPLY_REXMIT ; Transmit halt message 


Other system is halted 


LTSRCV_HALT_MSG: 
BsBd 


FUFU SUSU USSU STITUTE Se Se ES 
tt ad ad ad ed ad ed ed —B HOODOO OOOOOOOOOOOOO <-i 


OOoOoooooooooooooeo 


MmMmMmmMmmnmmnmMmmcn 


CDEAD H 


LTSCIR Circuit is dead now 
LTS$REPLY_DONE ; All d 


r 
l done 


Other guy is starting up 


LTSRCV_START_MSG: 


3_action 
<CSB_C_STATE_HALT LT$STATE_START>,- ; Enter the START state 
<CSB_C_STATE_START LTSREPLY_MSG>,- ; Re-send START message 
$CSB_C_STATE_RUN LTSSTATE_HALT>,- ; Enter the HALTED state 
BRB LTSFORCE_HALT >» What kind of kinky state is this ? 


Other guy is running 


LTSRCV_RUN_MSG: 


ADRAAAAOOUUIUUIUS SELLER LE LELL ES 
FUSUSU SSIS Ld OD OD GD OD OD OD OD 09 C9 69 09 9 C9 C9 CO UIPUIPUIPUPIPUPIPUIPYPD FMAOMOMOOOOOOOAAAOMQAA Wy 


NAME WN OS OOONAUNE WN § OS OOO NAMEN OO ONAULS WN OOD NOAUS WA OQOONOUL WH Mme 
e@e Sete 


RIPQPRIPIPIPIPIPIPIPININPINIMIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPIPININPINIPIPIPIPIPIPIPIPUPIPUPIPIPIPUPIPIPUPUIPURIFIFUPL 
Pewee eal ea a eal eal ah eal eal eal eal al eal eal al al ahah abr abrabrabrabrdbrahvalval 


SISSIES SSSI NAPA AA AAAAAAAAAAAAO 


PRL EKS SF SWAIN WII PINONINPININONININYD 


MMMMMMMMMMMMMMnMNnmMMMMmmsmMmmmMmmmcnieny 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 
0 


ww 


SDISPATCH CSB_B_STATE(R8), TYPE=B,- ; Dispatch on our CSB state 
<- 3 state ; He nn... 
<CSB_C_STATE_HALT LTSREPLY_MSG>,- ; Send STOP message 


¢C 
LTORIVER = Local Area Terminal Port Driver -JAN-1985 
v04-002 PROCESS RECEIVED MESSAGE -SEP-1984 
0E75 2548 <CSB_C_STATE_START 
0E75 2549 <CSB_C_STATE_RUN 
0E75 2550 > 
pegs 551 
CA 11 O€80 2552 Re LTSFORCE_HALT 


LT 
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1308383 VAX/VMS Macro v04-00 
1:40: (41) 


2 CLAT.BUGSRCILTORIVER.MAR; 1 


LTSSTATE_ENTER_RUN>,- ; Enter RUN state 
LTSSTATE_RUN>,- ; Stay in RUN state 


; What kind of kinky state is this ? 


d 3 
LTORIVER = Local Area Terminal Port Driver -JAN-1985 17: AX/VMS Macro Vv04-00 Pa 6 
iba ht CIRCUIT STATE TRANS TIONS g-2ANe| 382 11: ‘36: 33 POAT BUGSRE Te TORI VER. MAR; 1 = (8; 
: on ~SBTTL CIRCUIT STATE TRANSITIONS 
° ; We can go only from halted to starting 
LTSSTATE_START: 
01 90 Aove #CSB_C_STATE gyat 
0B A8 CSB_B_STATE(R8) w we are starting 
06 90 4 MOVE #MTYP"C_START@FLAG_V nobel ; Set the start message type 
CA 5 £588 FLAG) 3 
ry BO A MOVW RCV_W_SRCID(R6) ,- 3 
EA D CSB_W_REMID(R8) 3; Save his circuit id 
59 4A 0 8 CSB_Q_XBUFQ(R8) ,RO ; Format a start message 
50 £298 CF ; § MOVA GHB_T_STRT_ MSG,RO ; Get start address of template data 
60 F 96 CF 0 MOVC GHB-W"STRT-LEN.(RO),- ; Copy the start message 
A 90 2571 xAT T RDATACRS) 
1c a9 5 go oF 1 MOVL R ie T_ENDADR(R9) ; Store end address of data 
0384 AS 3 BRW LT$REPLY_ALT : Go send the reply message 
i 75 34+ 
ry > We transit to the running state only from the starting state 
Ae — 
A LTSSTATE_ENTER_RUN: ; Enter the RUNNING state 
0 90 a6 Aove #CSB_C_STATE_RUN,- ; Now we are running 
0B A A CSB_B_STATE(R8) 
90 OEAA MOVB #MTYP"C_RUN@FLAG_V_MTYPE,- ; Set the run message type 
SC A pene CSB_B_FCAG(R8) 
DEAE aa 
AE 


Update state from validated frame 


LTSSTATE RUN: 
CMP 


woowonono 


> pe 
SSLSSRAS= DWONAOULS GH" 9 OOONO 


mmmm 

2222. 

mnmmm 
FUSVSUSVSUSVSVSUSVSVUSVSVSISIST SII 


A 81 a RCV_W_SRC SSS - : Referencing a valid circuit? 
EA 8 C38 W"REMID(RB) 
9 1 8 BNEQ LTSFORCE HALT ; Br if not, force a halt 
59 3408 OD : MOVL CSB_Q_XxXB0FQ(R8) ,R9 ; Get transmit buffer address 
3 3 ; Set up for the receive loop 
BY 26 ELRBIT #FLAG_V_RRF,- ; NO response requested until 
4 ; C36 _B-FCAG(ABD ; a credit is used 
DA 2) BF CLRB ESB-B-NUA phot (ns) : Ass Output data (balanced) 
A Be C CLRW CSB WX XMTTROCRS) 3 Circuit's state is no longer timed 
C4 5 MOV RCV_T_A DATARS Ae : Receive buffer first slot address 
9 A c8 MOV XAT_T_MDATA(RY) RO Transmit buffer first slot address 
ry) A C C 6 MOVZWL CSB_W “MAX_MSGS12(R8) R10° 3 Total chars ovetsenle to slots 
1 ag A OED MOVZBL RCV-B-NUM-SLOTS(R6),FP ; Get slot loop coun 
o } D BNEQ SLOT_COOP"IN ; Got some input dat 
01 D6 BRW SLOT-LOOP-OUT : Go process output ‘Sutter 


vets 
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AX/VMS Macro v04-00 
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F 3 
LTORIVER = Local Area Terminal Port Driver ~JAN-1985 17:22: AX/VMS Macro V04-00 P 
v04 PROCESS RECEIVED SLOT DATA Bree 1Obe 11:e8s55 LEAT BSce Ree rbRtvce.mar:1 2% <8, 
4 H - -SBTTL PROCESS RECEIVED SLOT DATA 
p ; PROCESS RECEIVED SLOT DATA 
p ; Functional description: 
4 3 Now we are set up to pass data to and from the class driver: 
D : a following loop copies data from the receive buffer into the class 
4 3 driver. 
ED : Inputs: 
ED 3 F} sty RO-R4 available 
ED § $ RS = UCB address 
E09 3 R6 = CXB address 
EDD 26 3 ; R7? = current receive buffer slot address 
d9 3 R8 = CSB address 
d9 3 Ro = current transmit buffer slot address 
D 3 R10 = transmit buffer bytes left 
D : Ril = scratch (used as current input slot character copy base register) 
Dd : AP = scratch (used as loop count register) 
+ : ; FP = number of slots to process in received message 
09 6 : Outputs: 
44 ; none. 
a4 sf : We continue by processing the output slot loop. 
D9 2641 :-- 
° 226 ENABLE LOCAL_BLOCK 
D 645 SLOT_LOOP IN: : Input data slot Loop 
51 ¢? 9A D9 2644 mOvZ6L SL T_B.DSTID(R7) .A1 3; Is this slot alive ? 
4 1 DC 2645 BNEQ $ ; Br if possible 
O1A 9 $68 TSTB $ht B.SRCIO(R7) : Is the remote index valid? 
35. 1 : ti BEQL ; Br if not, ignore slot 
E $69 : Zero local slot index with non-zero remote (someone's attempting 
4 631 3 to login). Must be a start slot! 
oo Man 04 EF : 652 EXTZV #4,#4,SLT_B_CRED(R7),RO ; Get slot type 
50 91 Eg $33 CMPB #SLT_C_STR_SLOT,.RO : Is this a start slot ? 
} EC 2654 BNEQ T ; Or not, ignore slot 
06 6 ef 5 BSBW L ucB 3; Try fo allocate an LT UCB 
24 5 E F § BLBS R , Br if success 
Fe 6 INC_CTR GHOSL_RESOURCE*GHB_AREA ; Else, no UCB for us to use 
4; Hh : Send back a reject slot in the case of resource errors 
; JAYO0O 04 SA O01 re ° tmPL R10,- 3 Enough room for REJECT slot header? 
JAY r #SLf_S_REJ_SLOT 
3 JAY 1 19 } ° BLSS 1 3; Nope, just ignore the data 
3 JAY 5D 4 INCB CSB_B_NUM SLOTS<RS) 3; Increment sigt count 
7 JAY 89 O1A 5 MOVB SLT B-SRCTD(R7),(R9)+ ~~ ; Copy local id from receive message 
3 JAY \] A § CLRB (ROT* : Tell him we are not here ! 
3 JAY 9 C . CLRB (R9)+ 3; Load srorus ayes ount 
3 JAY 69 CO 8F 8 MOVB @SLT_C_REJ_SLOTQ4,(R9) ; Load REJECT slot format 
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BRB NEXT_SLOTO 
Flag protocol error and ignore slot 


("ese Ge ee 


AEGNLSSONEAFUVIO Oo 


OOP_ABORT: 
SETBIT cougey INVALIDLOCID .< 
INC_CTR GHBSL-PROTOCOL +GHB_AREA 

3 Conditionally send stop slot 

708:  TSTB SLT.B SRCID(R7) ; 
BEQL NEXT_S ; 


ASSUME St1_s S_STP_SLOT®1 £01 ; 
CMPL OR 
ast. _S_STP_SLOT+1 


1 BLSS  NEXT“SCOTO™ ; 
1 INCB CSB_B_NUM_SLOTS(R8) ; 
1 MOVB SLTB“SRCID(R7),(R9)* 
3 CLRB | (ROT#™ : 
1 VB #SLT ~S-STP-LEN, (R9)* ; 
1 #SLT“C"STP SLofas, (R9)* 
1 VB #SLT ge sf VSL 3 
1 ASSUME § STS “STP Vetorel it 1 3 

SUBL2 aut _S_STP_SLOT#+1,R10_; 

BRB NEXT~SCOTO™ : 


BUNS O OOONAULS WN OO 
3 
r 


$0$: 1STB  SLT.B SRCJD(R7) : 
BEQL NEXT_SLOT 


; Received a zero in the slot source-id - is this a stop slot? 


40S:  EXTZV = #4,#4,SLT_B_CRED(R7),RO ; Get slot type 
CMPB #SLT_C_STP_SLOT,RO ; Is this a STOP slot? 
BNEQ LOOP-ABORT™ ; Br if not, do nothing 
BSBW LTSHANGUP_UCB_NOW ; Hangup the UCB to logout process 


PROTOMASK+GHB pose : Invalid remote ID or slot format 


syngiog 
; Enough room for STOP slot header? 
: inere just ignore ¢ the data 


Range check error, is this really a disconnect slot ? 


6 3 
rminal Port Driver =JAN-1985 17:22: AX/ VMS r) Pp LT 
Chives scot DATA Boge 18R. 17:28:33 HEAL MBS Bacco NOtr0o on, Page (65, vo 
IS #SLT_C_R CE.(R9)* |; Load reason ¢ (resource error) 
“ag, BL-§e RE. SLOT AIO + fa bytes | ete for other slots 
0s: BRw ; Just process the next slot. 
; Validate UCB reference - non-zero local index 
: imps —soR1, CSB ~B_MAX_SLOTS(RB) ; Do ar check on the local index 
BGTRU 506 Br if not inr range 
MOVL 638. L_UCBLST-4(R8)CR1), As i noet UCB addre 
BGEQ sho ot doesn’ t live here anymore 
2 CMPB SLT_B_SRCID(R7) ,UCBSB_ iT’ *RERIOCR ) ; Valid remote reference? 
; 33 Soe a ear iDeR?? ; i Else: ore’ ue honat ~ : te? 
: re we rom remote 
5 BNEQ PboP ABORT , it ne. ey hs stot” 


: Process next slot 


Check remote slot index 
Br if empty slot 


Assume we need r 


weed rok ren jeeet € messa 
v 
FOrY fi hia t here - 


load reason code 
asoune ~ ee Oy renting 


“p te nm boundar 1a 
ad yet ytes “fore pes other slots 
do next input slo 


E remote slot index? (stop slot?) 
‘arity yes. ignore the slot. rap 


ESS RECEIVED SLOT Da rf Driver" BreeP-19be 11:46:52 FCAT BuceReserpaives.mar;1 2% ($8, 


Be Di i De Des Ds i Bs De 


woo 


7 SETBIT #GHBSV AVAL TOREAID.¢ 
GHBSL PR ROTOMASK+GHB “AREA; pees ve LOCID with REMID non_zero 
INC. CTR gue “PROTOCOL*GHB_AREA ; Count as protocol error 
7 3; Send a stop slot 
, NEXT_SLOTO: 
4 BRw NEXT_SLOT ; Branch aid 
735 -DISABLE LOCAL BLOCK 


r 


Ss 


1 3 
- Local Area Terminal Port Driver ~JAN-1985 17:22: AX/VAS ° P. 7 
PROCESS SLOT CREDITS nce iveo etsy 14326383 {TAT BUGS ESC rDRI VER. MAR: 1 ~ (fi) 
pats -SBTTL PROCESS SLOT CREDITS RECEIVED 
Q ; Update UCB credit account from received message slots 
42 j-- 
43 LOAD_CRE : 
50 O03 A7 90 4G “OVE LT_B_CRED(R7) ,RO 3; Get crogits and slot type 
45 ASSUME SLT"C"DA_SLOT fa 0 > assumption 
18 £46 BGEQ 3s ; Got a DATA_A slot 
- 45 OO EF ? 4 EXTZV , #4, SLT_B_CRED(R7), RO ; Get the credit counts 
$1 are 3 EF 2748 EXTZV #4, #4, SLT_B_CRED(R7), R1 ; Get the slot type 
& 749 SDISPATCH R1, TYPE=B,- ; Dispatch on slot type 
A 7 ? <- ; slot type ; action 
A f <SLT_C_DB SLOT do8s.- ; DATA_B slot???? 
A f 4 ' <SLT[CIATT_SLOT 40$>,- ; Attention slot 
AD 2754 
FFOS = 51 f 5 BRW LOOP _ABORT 3 ALL others, including Reject slot 
i $ 3; DATA_B slot 
01 88 7 5 208 8188 #UCBSA_LT_DATA,- ; Remember to at least send back the 
oie C 7 veges Y DATAW(RS) 3 credits! 
147 € 85 27 Ince. «=: UCBSB_CT_RCRED(RS) 3 One less credit on remote end (negative) 
0 7 BLEQ 4 :; Br if credits not exceeded, proceed 
06D 4 oe? BSBW LTSHANGUP _UCB ; Else, Hangup the UCB to logout process 
| 765 ; ATTention slot, IGNORE DATA 
0146 C5 28 80 y 408: ADOB RO,UCBSB_LT_TCRED(RS) ; ate credits 
4 11 ¢ BRB NEXT_SLOT ; Skip to next slot 
: ; 3 RUN slot 
0146 (5 50 80 iH re 508 ADDB RO,UCBSB_LT_TCRED(RS)  ; Update credits 
CA 
CA rhe IF DEFINED LT gree CHECK 
CA 277 CAPB yrese_C _TCRED(RS) ,#2 
CA 277 BLEQ : Or if ok 
CA ore SETBIT Vepnocnse ITS. 
ca GHBSL_ OMASK+GHB_AREA, Too many credits in host 
CA 27 INC CTR PROTOCOL+GHB_AREA ; Too mony credits in host 
cA f ans eseg Ses UCB ; Hangup the UCB to logout process 
CA "  JENDC = sg. DEFINED LT_CRED_CHECK 


Move terminal data through class driver 


a = contains the character 
R5 - UCB address 


CA ' ROVZBL SLT_B_COUNT(R7),AP ; Character count for this slot 


- 
> 
Sete Sete eee 


5C 02 A?) 9A 


$s 


LroRiys® 


cet re igcninel Por 
SS SLOT CREDITS RECE 
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BEQL WEXT_SLOT 3; No input here 
MOVAB SLTT payer) tt : Source of characters 
BBS #uces?_it_ - : If device is hanging up. do not con- 
Ue aLT_LATSTS $) .NEXT_SLOT fuse class driver with more data 
INCB “LT: ERED ER ; One less credit on remote end (negative) 
Shey SSuanoue ue : Flees Hangue the USS Es Togott se 
: r) rocess 
BRB WeXT SLOT” : Continue , 
; ; Indicate that input stream is running again, and data is potentially 
; ; available. 
ASSUME UCBSB_LT_LATSTS EQ UCBSB_LT_DATAW+1 
B0¢ BISW ocucean ch! ere > UCBSA_ LT_DATA,=- ; Data potentially available 
5 BATAW(RS) and t stream in enabled 
BOE B1SB #UCBSRC are UCBSL_STS(RS); Force no data to be returned 
He : Dump characters into class driver 
8 80$: MOVZBL (R17)4,R3 3; Get next character 
31 BBS #UCBSV_LT_OVFLOW - : Br if overflow, wait for XON 
B14 SB“LT“LATSTS(RS) ,90$ 
815 J$B aucese- TT" PUTNXT(RS) ; Pass character to class driver 
18 BNEQ EC oY ee ; Br if character being echoed 
: : SOBGTR AP 3; Do all characters 
1 8 90$: B1CcB #UCBSA_LT : Input stream is now disabled 
i | P UCBSB-LT “LT Stg crs) 
; : : Bump pointers to the next slot 
1 804 NEXT_SLOT 
1 B25 ROVZBL sur B_COUNT(R7), RO 3 Max bytes in the siot 
1 5 $ MOVAB SUT _7_DATA#+1>(R7) = 7 ¢ e address of ceil slot +1 
1 : £ hp 3; to help round to word 
1 BICL #1, &7 $ make {t @ vord bounds y. 
1 DECL TP 3 Loop on all slots 
1 BEQL SLO*_LOOP_OUT 3; Done all input slots, now process 
1 3 _any output data 
: BRW SLOT_LOOP_IN 3 Process all received slots 
1 ECHO_ERROR : 2 geecactes being echoed??? 
1 5 DEBUG Should not get to here 


Sa 


K 
foretnat Port Driver 


abe 14:46:82 EM 


Bacco y v046 
BUGSRC ILTORIVER.PAR; 1 


: -SBTTL BUILD A STOP SLOT 

BUILD A STOP SLOT 

Functional description: 

Build a stop slot in the out message buffer, then delete the UCB. 


Inputs: 


Outputs: 


S$ S&S Sas 


—— SMO 


SAS & 


— 
ne 
WwRReO 


SEND_STOP SLOT: 


butter bytes left 


current transmit buffer slot address 
transmit buffer bytes left 


TST 


BSB_LT_CURC(RS) ; Is UCB data waiting? 
$ ; Br if no, send the STOP shee 


; Send data if our credit is good 


h B ne for STOP slot? 


R10, #SLT_T_DATA 
ONE $ send next time 


ok 
CSB_B_NUM_SLOTS(R8) 


3; Send the remote s'ot index 


SLT rt SRCID EQ yy DSTID+1 

EQ SLT_B_ SRCID+1 

: Zero SRCID for a stop slot 
and data 


SLT_B_CRED EQ ae 
gst T as =$1P SLO R9)* ; Load stop slot format & no credits 


po b qos. left for other slots 
Skip call T BIND 


: Get next slot 


2 
*stor’bata sO 'ver grSep=198e 11:46:53 ELAT BuccREC DRIVER. MAR; 1 


-SBT"L PROCESS OUTPUT SLOT DATA 
PROCESS OUTPUT SLOT DATA 
Functional description: 
Now output any waiting data from each UCB on this circuit and an 


data retur from the cheese driver is transfered to the appropriate 
output slot in the transmit buffer. 


> 
= 
=e 
Pi 
aa 
3 
~ 
So 
r 
= 


t 
3 
oo 
ma 
nn 
~~ 
3 
_— 


Inputs 
et available 
B address 
oR? = scratch 
= CSB address 
= current transmit buffer slot address 
R10 = transmit buffer bytes left 
RII-FP = scratch 


Outputs: 
none 


We continue processing in the send reply message section. 


05 
907 §LOT_LOOP_ouT: 
5D 2D AB oOA 908 MOVZBL CSB_B_REFC(R8) FP ; Set output UCB Loop ¢ 
57 6C AB DE 90 MOVAL CSB-L“UCBLST (RB) .R7 :; Set base address of vce worter 
910 ONE_LESS: ; One less unit left 
30 07 11 DECL FP 5 ay Fon left ? 
0 18 af} BGEQ 108 ; Br i 
O1gB 51 3 4, 108: BRW LOOP_EXIT : Else. tit Loop 
55 87 09 5 915 MOVL (R7)+,R5 ; Get next UCB address 
fe 1 518 BEQL 10$ : ignore holes in non-dense vector 
pig ; Dispatch on our terminal UCB state 
320 Soispatcn gr UGBSB_LT_STATE (RS) ,TYPE=B,~ 
§ <UCBS cuts STATE _STOP SEND STOP. eat - ; STOP state, send stop slot 
933 <UCBSe TLTZSTATE-KILL «= ONE_CESS>7 KILL state, ignore this 
925 ; RUN and START, just fall through 
0142 C5 % TSTB UCBSB_LT_DATAW(RS) 3 is there any data waiting? 
e& 1 BEQL ONE_LESS ; Br if 10, skip this UCB 
; Check for ABORT message first 
02 ES ’ BBCC = SUCBSV_LT_ABORT ; Br if no abort requested 
1A 0162 C : "UCese~ “LTCDATAWERS),308 ; and clear flag 
935 ; Send an ATTention slot 
Assume SLT ATT_SLOT@1 EQ 1 ; Assume we need roundi 
06 SA 01 CRPL R107 BSLT“S_ATT_SLOT*1 ; Enough room for ATTENTION slot ? 


a 3 
LTDRIVER = Local Area Terminal Port Driver ~JAN-1985 17:22: AX/VAS Macro Vv04-00 Pa 71 
vOe-008 PROCESS OUTPUT SLOT DATA ets i 11 16:82 Year BUGSRCILTDRIVER.MAR;1 (46) 
3 15 71 293 BLEQ 508 r if no, skip it (use br helper) 
5D a 96 ie 9% INCB «= CSB_B_NUM_SLOTS(R8) : teate slot count a 

76 ASSUME UCBSB_LT ri ocee Fa UCBSB_LT_REMID+1 

76 ASSURE SLT_B-DST ae 

76 ASS SLT“B-SRCID EQ SLT_B_DSTID+1 

76 ASSUME SLT"B- COUNT 0 Stee B-SRCID+1 

76 SUME SLT"B-TYPE EO SLT_6 COUNT+1 

26 ASSUME SLT"B"ATT_CONTROL -£, SLT_B_TYPE+1 

89 0140 C5 76 Ve BSB_LT_REMIDIRS), (RO)* end the remote slot id 
89 01 78 MOVE #SLT_S_ATT_LEN, (ROS*+ ~~; By ATTENTION slot deta size 
89 MOVE @#SLTIC“ATT“SLOfas,(R9)* : Load ATIn type & no credits 


ASSUME SLT_S_ATT SLOTG1 EQ 1 ; Assume we need rounding 

mOVW @SLT_ATT_A_ABORT,(R9)* ; Send abort flag & zero byte 

SUBL  #SLT<S_ATT“SLOT+{,R10 Account from room taken 
Check for flow control message 


$0s: 


sabe 


ne 


eee a ma a ea ed a ad on et et es ss 


—§O ONO NFM 0 OBNOUNF UO 0 
Sees 
Cc 
oO 


BBCC #UCBSV_LT_FLOW,- :; Br if no flow requested 
ucese-LT “DATAWCRS), 90$ ; and clear flag 


> Send DATA_B slot 
965 bECB ycase_ LT_TCRED(RS) 


01 
54 0142 C5 


0146 C5 7 Use up a credit 


C BGEQ : Br if okay, continue 
0146 C5 IncB ycose tt. LT_TCRED(R5S) $ gi se. restore credits 
SETBIT Hoe tt T-pAgMacRs) § : r wall send flow centres 
965 3 “ en we have good cred 
42. #11 441 BRB 90s 3; And continue 
72 408: 
7? ASSUME SLT_S_DB_SLOTE&1 EQ 1 ; Assume we need rounding 
OA SA O01 74 CRPL R1C,- ; Enough room for DATA_B slot ? 
? e<SLT_S_DB_SLOT+1> ; rounded up 
+) nb} 76 508 BLEQ ; Br if no = it (branch helper) 
5D AB = % , INCB = CSB_B_NUM_SLOTS(R8) > Update slot count 
AS SLT Bcbat hocks a f° UCBSB_LT_REMID+1 
980 ASSUME _B-DSTID 
981 ASSURE LT"B- SRC cid 5 fo SLT_B_DSTID+1 
AS STB“ eOUMT Fe i B-SRCIDe1 
91 ASSUME SLT~B-TYPE EO SLT_B_COUNT+1 
44 ASSUME SLT“B"DB_CONTROL EQ°SLT B_TYPE+1 
985 ASSUME SLT B"DB_"OFOF EQ SLT_8_BB-CONTROL*1 
ASSUME SLT_B_DB_OFON EQ SLT"B-DB_OF OF + 
9 ASSUME $LI“B-DB-IFOF EO $L1~B-DB-OF Ons 
98 ASSUME SLT“B"DB-IFON EQ SLT~B~DB~IFOF +1 
89 01460 (5 go $99 MOVY  UCBSB_LT_REMID(RS), (R9)* ; Send the remote slot id 
89 605 1 mOvB #SL1_S_0B LEN (R9)$ ; Set DATA B data size 
Aes 89 a0 BF 60 ; MOVE SST C“DB“SLOfa4,(R9)* |: Load DATA_B type & me credits 
; JAv0001 § ; If the terminal is set to PASSALL we will disable ail 
; JAvY0001 : flow control. Else, we will use LoutnOre’? flow control if we 


cr 


8 


erm 
L 


We 
nn 
2 

ow 


n 3 
PbRRTe river” ARIE 2835 MRSS ARE 


1 4 ; are set /HOSTSYNC ¥ we will use NULL/BELL flow control if 
: r ; we are set /WOHOSTSYNC. 
89 OA 1 , MOVE #SLT_DB_M_IFDIS'SLT_DB_M_OFDIS,(R9)* = Assume no flow control 
11131113 4 30 ! 8 MOVL aperyedea te reakat et etea >,(R9)* =; Assume default values 
1A 66 AS 1 9 BBS aTTsyv SASSALL CRON BE VDEPEND CRS? so 3; Br if PASSALL 
FB A 1 10 MOVE 6 #@SLT_6B MI NAiSL DB_M_OFENA,-5(R9) : Else, use flow control 
064405 06 €0 1 211 BBS atts9 WOSTSYNC UC SC_DEVBEPEND(RS) 608 : Assumed “S and “0 
FE a9 7 #80 : 16 MOVW #<7a05 ,-2(R9) i Else, we were wrong 
1 60$: ; Check /TTSYNC 
08 44 a5 OS €0 1 18 BBS #TTSV_TTSYNC ,UCBSL_DEVDEPEND(RS),70$ ; Br if “S and *Q 
1 1 3 assumption was correct 
FB AQ Ss os 1 003 BICB #SLT_OB_M_OFENA,-5(R9) ; Else, clear output flow enable 
FB AD 8 : + eee B1SB @SLT_DB_M_OFDIS,-5(R9) ; and set output flow disable 
1000 70$: 
100D 0 ASSUME SLT_S_DB_SLOT&1 EQ 1 ; Assume we need rounding 
89 94 10DD 3008 CLRB (ROS ; Round up 
SA OA C2 + o10 SUBL #SLT_S_DB_SLOT+1,R10 ; Adjust bytes left (rounded up) 
10€ 11; 
10€ og : Check if there is any output data waiting 
10€ 013 ; 
10€2 3014 90s: 
10€ 015 


B 4 
LIDRIVER = Local Area Terminal Port Driver -JAN-1985 17:22: AX/VMS Macro v04-00 Page 7 Le 
viral ts PROCESS OUTPUT SLOT DATA go AN- 1982 14:26:53 LEAT BUGSRE TL TOR IVER. MARS 1 . (3) Vv04 
! : 3+4 
: 3 Any credits and enough room in output buffer for this slot ? 
10€ bee 
: CREDIT_CHECK: ; UNUSED LABEL (breaks up LSB) 
E : Flush all characters to transmit buffer 
10 : Rg = CSB address 
| : : R5 = UCB address 
56 014965 9A 10E MOVZBL UCBS$B_LT_SLOTSZ(R5),R6 ; Get maximum slct size 
56 SA 01 10€ CMPL = R10, RB ; Is space left greater? 
03 14 10EA BGTR : Br if yes, then we can use it 
56 365A 0g 10EC MOVL R10,R6 : Else, use lesser size 
56 004 «= C2—sC1OEF 10$: SUBL &#SLT_T_DATA, R6 ; Subtract slot header size 
08 14 10F2 BGTR ; Br if enough room 
10F4 20S: SETBIT #FLAG_V_RRF,- 3; Else, indicate response requested 
ire CSB_B _FLAG(R8) 3 since not all data fit in buffer 
FF50 31 10F9 BRw one_CeESS : No room left in output slot 
5C 56 D0 10FC 30$: MOVL ; Get room left in output slot 
5B 0449 «(OE TOF MOVAB SLf_T_DATA(R9) R11 ; Sink of characters 
110 : Check if we have credits, or if we need to return credits 
113 :; before building the message. 
0146 C5) «—95=—:110 tSTB UCBSB_LT_TCRED(RS) ; Any credits we can use to send msg? 
09 14 1107 BGTR ; Br if yes, okay to build data message 
1109 ASSUME LATSC_MAX_RCRED ge 1 
0147 C5 95 1109 TSTB CBSB_LT_RXCRED(RS) ; Remote have any credits? 
12 1100 BNEQ :; Br if yes, just leave now 
00c4~— «531 Viet 40s BRW USE_CREDIT ; Else, send back credits 
iW : ; Any data from startio ? 
52. 0148 CS) 9A 111 MOVZBL UCBSB_LT_CURC (RS) .R2 ; Get characters in startio ? 
A 13 111 BEQL $ : Br if none 
53 014C CS 9E 1119 MOVAB UCBS$B_LT_CBUF (RS) ,R3 3; Set address of buffer 
as + «CRT 136 CMPL AP ,R2 ; Got enough room in xmit buffer? 
29 «18 1 BGEQ  60$ : Br if yes 
11 : Re = COUNT 
1 3 R35 => DATA 
0148 C5 5¢ 82 11 5 SUBB2 AP, UCBSB_LT_CURC(RS) =; Save residual count 
3 11 PUSH ; Save the UCB address 
6B 63 112A MOVC AP, (R3),(R11) : Copy the string from UCB to output bfr 
8EDO 11 ; POPL R 3; Restore the UCB address 
58 3 11 MOVL R35,R11 3; Set address f next available byte 
26 Bree C E 1136 MOVAB UCBSB_LT_CBUF (RS), 4 3; Copy residual chars to beginning 
5 148 9A 1139 MOVZBL UCBSB_LT_CURC(RS), R ; _of UCB buffer area 
bp 11 f pei 3 Save the UCB address 
62 61 3 114 MOVC R3,(R1), (R2) 3; Move the string up in the UCB 
8EDO 1144 POPL R 3; Restore the UCB address 
C Be 1147 CLRL AP ; No more r left 
008A 1 1149 BRW USE _CREDIT ; Use a credit and send them 
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vita PROCESS OUTPUT SLOT DATA go AN- 1982 | te 33 LAT .BUGSRCJLTORIVER.MAR; 1 “9 (47) 
1146¢ 74 
148 94 114 75 608: CLRB U ose LT_CURC (RS) 3 data now 
C C2 11 16 SUBL2 R2,A : Adjust room left in slot 
B 11 7 aS R 3 pave the ute address 
6B 63 11 8 MOVC R2,(R3), (R11) 3 Roby the stri ng 
BEDO 11 7 POPL R 3; Restore the UCB addres 
58 dDd0 115C¢ 0 MOVL R3,R11 3; Set address of next available byte 
f DS =115F 1 TSTL Pp’ 3; Any room left in slot 
7 1 116 g ; BLEQ USE_CREDIT 3; No, just transmit phy 
118 ¢ 3; Check if there is any data from last time 
52 0120 C5 3 118 $ 70S: CVTWL UCBSW_TT_OUTLEN(RS),R2 ; Any data left from last time ? 
ef 15 116 BLEQ T_MOR :; Br if no, try for new data 
53 O11C g DO 116A 3088 MOVL UCBSL TT _OUTADR(RS) .R3 ; Get address of data 
52 § D1 119 9 CMPL 3; Enough room in buffer ? 
03 18 1172 3090 BGEG Bog" F Br if yes 
¢ 2 DO 1174 91 MOVL we R? 3 all the space we have left 
0120 C Ae 1177 92 80S: SUBW -UCBSW_TT_OUTLEN(RS)  ; Adjust descriptor 
011C C5 : cO 117C 309 ADDL U UCBSL “TT_OUTADR(RS) ; 
5C¢ C2 1181 3094 SUBL R : Adjust count of chars left 
5 3 1184 95 PUSH : : Save the UCB address 
6B 63 2 1186 38 MOVC R2,(R3), (R11) ; Copy the strin 
55 B8EDO0 118A 309 POPL 3; Restore the UCB address 
5B 53 dO 118D 98 MOVL R3,R11 3; Set address of next available byte 
5c 6S 1139 99 TSTL 3 Any room left now 
02 14 119 100 BGTR GET_MORE ; Br if yes, get val more data 
40 11 Bb + 103 BRB USE_CREDIT ; Else, try next slot 
1136 103 ; 
1138 194 : Loop draining class driver until no data is left or buffer is full 
1196 31 6 GET_MORE : 
010C D5) = ‘16 BP 43 ! i JSB @UCBSL_TT_GETNXT (RS) ; Get characters from class driver 
119A 3109 ; R1-R4 modi fied 
119A 3110 ; R3 = 7? and cc = ! No more oy 
119A 3111 ; R3 = char and cc = + ' One charac 
119A 11g 3; R35 =? and cc = - ' Burst robe art _OUTADR, TT_OUTLEN) 
VIO, WN 3 RS = ucb address 
40 13 119A 3115 ° BEQL USE =CREDITI 3; No characters 
09 19 1136 118 BLSS GOT"A_LOT 3; Got more than one character 
8B 53 30 119 13 MOVB R3,(R11)+ ; fe y cheracter to output 
5C D7 IIA 11 DECL AP 3; Adjust rose in slot 
Fl 14 #11A 1 9 BGTR GET_MORE 3 Go get mo 
ar 134 : aot ss ore USE_CREDIT 3 No room eft in slot 
53 116 3 go A731 : “= MOVL UCBSL_TT_OUTADR(R5), RS 3; Get output buffer address 
52 12 f C iat 124 MOVZWL UCBSWITT-OUTLEN(RS).R2 ; and charster count 
2 ¢ ot 118) : 5 Hag AP,R2- 3 aie nous room in output buffer? 
; Br 
22 D 1186 1 ; MOVL, AP,R2 ; Output Tmax imun pos tote 
f C2 1189 31 3 103: SUBL2 R2,AP ; Adjust room left in slot 
pits C C Vee 1 ADDL R Ue at oT DUTADR (Re) ; Update output address 
120 C5 A2 11C 1350 SUBW2 -UCBSW-TT OUTLEN(RS) ; and charcter count 
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TOR yee - Loget Area Terminal Po 
v04- PROCESS OUTPUT SLOT DATA “SEP-1 LAT.BUGSRCILTDRIVER.MAR; 1 (47) V04 
23 i} 1166 131 PUSH R 3; Save the UCB address 
6B 63 8 11C¢ 1 § MOVC »(R3), (R11) 3 Copy the stri ng 
é 8EDO 11CC 31 POPL 3: restore the UCB address 
58 DO 11CF 3134 MOVL Rae R11 3 set address of next available byte 
SC DS 11D2 13 TSTL 3; Any room left in slot ? 
CO 14 1104 3136 BGTR eT MORE ; Br if yes, look for more 


<3 
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«SBTTL CONSUME CREDIT WHEN FILLING IN SLOT FIELD 


If any data was added to output slot, use credit locaily, pass credit 
: to other end i needed, and Set seed mode to unbalanced. “ob 


-ENABL LSB 
USE_CREDIT: 
BISW #UCBSM_INT,UCBSL_STS(RS); Set interrupt expected, lock 
; out transmits from STARTIO 
BRB 10$ 3; Continue 


USE _CREDIT1: 
PICW 


eS 


me 
eT el 
~-o 
ro 


Ve 
Sect 


PRELELPLPE EM 1-4 


2s 


64 AS 
05 0143 ; 
0142 C5 


Clear interrupt expected 
a Don't ¢lear data waiti flag 
C if we're waiting for OVFLOW to clear 
; No more output data waiting 


form character count in AP 
Use up a credit 


AP ,R6,AP 
UCBSB/LT_TCRED(RS) 
LAG Set response requested flag 


M_RRF,- 
CSB_B_FLAG(RS) 

#7LAG_A_RRF ,- 
CSB_6_FLAG(RS) 

AP, REAP 

208 


Set response requested flaaq 


Calculate character count in AP 
Br if no data, DON'T use credit 
Else, use up a credit 


TWN HMMMMMMMMmMmMmMmmMmooCOCCOCCOVCVCTCVTTCVU 
NU = MO OOO DWI WVWVIWVIWVIVSMBOFNVOOOOPFPPOeoeecsccse Oy 


3 _ system as DATA_A 
; Send credits and data 


T 
=$ 

Xx ; Calculate credits to send to remote 

X : lot 
8 
x ; See if we need to send 

; _ a credit to the remote 
f no, send nothin 


6 ; Br 
RO,UCBSB_LT_ 3; Else, add in credits fo send 
RO,UCBSB_LT_X ; Credits have been extended 


Setup slot header and advance pointer to next transmit slot header 


ASSUME UCBSB_LT_LOCID EQ UCBSB_LT_REMID+1 
ASSUME SLT_BUSRTID EQ SLT_B_DSTID#1 


UCBSB_LT_R = ; Set up slot connection ids 
SLT_6 DST 
; Update slot count 


: Load character count 
3; Load slot type and credits 


S 
wv 


NOUS LIN OOO 


> RP PDN PW 
Oc Ww 
~ 
a 
cea 


0140 c3 
02 a9 5¢ 
"08 A 


Sb tae a 


; Set RUN state, no more credits 
; Copy slot starting address 
; Address of start of next slot 
RY ; Mak rd address 
RO! t Fempute bytes. used by slot 
° ; ute es use slo 
ag. R16 : Adjust bytes left ter other slots 


cc me me mB mm mt ad ak ed ae ed td ed 8 nd ks ot 2) 8 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee em me em em ke ee ed ed ad a od oh oh a eo a 


lon 
o 


S 


$B_B_NUM_SLOTS(R8) 
os” 


BICB FLAG 

csB a'r ing» 

MOVL iene aetasti ), RI 
RBSL_T_ENDADR(R1) 


Are there any slots? 
Br if yes, continue 
Else, clear RRF flag 


Address of buffer 
Save end address of data 


oo Swe 4 
oo wou 
bas) 
So 
on 


Sete Ge Sete Ge 


yy 4 
LTORIVER Local Area Terminal Port Drive 7: AX/VMS Macro V04-00 Pa 77 
vitae ONSUME CREDIT WHEN FILLING IN SLOT FIEL meet i ij +38: $3 LAT .BUGSRC trp DRIVER.MAR; 1 ” (48) 
FEOE ~ ] } 5 608: BRY ONE_LESS 3; go do next UCB 
! } LOOP_EXIT: 
; Compute and save the number of bytes in the transmit buffer. 
; R9 => end of data in the transmit buffer 
i : : 
1 4 ; There is a special case where the ce buffer can be taken 
1 5 ; and that s when the circuit is halted. So if the circuit fs 
1 ; in the HALT state, then we can ayeune we no longer have the 
! 3: OXMl gh. that we copied data into. 
| soi iSPATCH sal CS8_8 elton Ts : Dispatch on our CSB state 
od 3;_action 
! ice. C * STATE HALT iTSREPLY_DONE>,- 3; All done, exit 
1 
1 
1 
i 
1 
i 
1 
1 


AREER EE 
Arwen POW MMMMMMMmMmMmMcrmnern 
ORG et a a ts et Bd ed 
COWNAUHL LINO DOD 

—t 

mw 

— 

o 


MOVL 
-DSABL 


Se + 


Sa 


59 


54 


34 A8 


SEND Re 


dO 


a 
R 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
| 
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1 
1 
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1 
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1 
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1 
1 
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I 


TSREPLY_MSG: 

We come here to transmit a new frame in response to a received frame 
R8 = CSB address 

MOVL CSB_Q_XBUFQ(R8) ,RO 

LTSREPLY ~ALT: 


; «SBTTL SEND REPLY RESPONSE TO RECEIVED MESSAGE 


L 


3; Transmit buffer address 


DEFINED LT_XMT_CHECK 
Debug code 


check the format of the slots and make sure that they are 
well formatted. 


4 Re = CSB addr 
& = transm t “Pest ter address 
? RO-R3 clobbered 
6% MOVAQ c38.0 XBUFQ(R8), RO 3; Address of transmit head 
rH ta R. RO i Is there @ fransait but fer 
3; Nope, its queue 
¢? DEBUG 3; Can't be the queue head 
és 5$ mova CSB_T_CIRCHDR(R8) ,- 3; Move the circ header 
0 XAT of DAT ACR) 3 to look et real nsg 
1 CMPB XMT-B_FLAG(RO) $ enly anal yee running msgs 
: al Samba V_MTYPE : yt h : lot Pesiians 
4 MOVL Hes ENDADR(R9) : 
5 MOVAB int “MBATACR9) nb : First slot 
$ MOVZBL XMT“B-NUM_SLOTS(R9), : cof valid slots 
BNEQ 108" 3; We have some 
8 ; No slot - message must only have a circuit header! 
CmPL —sR2,, - RO ; Only circuit header? 
BEQL 5 ; Br if yes, okay 
DEBUG 3 Not correct 
Bre 508 
108: MOVZBL $18 _COUNT(RO) , RS 3; Look to next slot 
5 BGEQ ; Must be rer er or zero 
DEBUG : Maxc not valid 
308: Ape. g BSLT AT ADATA, R3 : Slot ease Length 
INCL 4 : Round to word boundary 
BICL fi, Rg 3 
CAPL RO, R : Still inside buffer? 
BLEQU 4 : Yep 
DEBUG 3; Slot beyond buffer 
: $88: SOBGTR Ri, 108 ; Check all slots 
§ " — JENDC «= gs: DEFINED LT_XMT_CHECK 
8 MOVL RB, R4 3; CSB address to r4 


iS eigeadeeateel 


Lar yse 


O80F 


SFFE SF 


54 


= # 
Woo 


= Loc 
SEND 


30 


wa 


=SS 


4 
R 
| 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ao 


68 
60 


LTSREPLY DONE: 


LTSREPLY_REXMIT: 


CLT RESPONSE "to Reed 


BSBW 
or 


river” 
VED MESSAGE 


LTSXMIT 


- al 
#°MCR1,R2,R3.R4.RS.RG-R7.RB-RORIO ATT AP FPD 


Retransmit last message 
R& = CSB address 


MOVL 
BSBu 
BRB 


RB, R4 
LT$REXMIT 
LTS$REPLY_DONE 


BaSEp= 158. 14:06:83 


a | 
vve 
z= 


UAT BUGSRESLTDRIVER.MAR; 1 
: Transmit the buffer 


ddress to R4 
yl all waiting buffers 


r 
o 


2 


; Restore registers 


vital 


ad 


ocal Area Terminal Port Driver: 


LTSCREATECSB = Create @ CS 


cc me ae ce cet ah ee ed ee ee ee a we et we ce we ed ed a eh ed ed a td 8 dd 8 a a BS oS DD 


r Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Se Sete 


RIPIRIPIR) 9 et ot 
MS FESSSSANSR RUNVSsa Sous 


Inputs 


-SBTTL LTSCREATECSS 


+ 
LTSCREATECSB = Create a CSB 


B88. 17:85:83 


= Create a CSB 


AX/VAS Ma 


Allocate a CSB for use and initialize it partially. 


RG => next en 


R8 = new CSB addre + 
RO = success or failure 


CSB table entry set to its address 


R1-R2 are destroyed. 


TSCREATECSB: 
ADDL  #CSB_C_FIXLENGTH+4,R1 
PUSHL R3 
JSB G2 EXESALONONPAGED 
itt 
PUSHR nd, 108 R2 R5S> 
mOVCS #0, (SPS, 56° at tho) 
POPR gameRt RZ R3,R4,R5> 
mOVW ysl 7€ (R23) 
mOVB 


iC 

CSB_B8 Crbetaz) 
mov GHB“L-CSBTABLE, RO 
ty RO. "RE. RO 
DIVL2 #4, 

RO, CSB 8 BLOC 1pW(R2) 
MOVE GHB t Pate “CCHKCROJ,- 
CSB_8_LOCIDS(R2) 


: Initialize queue headers 


fov Q XBUFQ(R2), RO 
MOVL (RO) 

MOVL (RO) 

MOVAB _Q XWAITQ(R2), RO 
MOVL RO) 

MOVL 4 (RO) 

ROVL o RG 

MOV =(R4) 

mov BL #S$$_NORMAL, RO 


yt, SB table be 
R1 = Length of UCB List at end o 


Outputs: 


yong the one that is free 
csB 


; Add in size of fixed block + 


one ‘'no access’’ UCB slot 


Got block 
Save registers 
Zero block 


gestere registers, 
Save size of CSB in CSB 

Store an unlikely twee in the 
the block 


CAT BUGERESLTORIVER. MAR; 1 a (3; 


Create the slave index from the 


or A the CSB table 


ene save ot in the CSB 
Save it here 


also 
Obtain the check field for this 


CSB slot 


Initialize 
transmit buffers 


a 


f CSB her 


Return address @ 
CSB in table 


Store address o 


he queue headers for the 


; we chec 
; and 


SN NN NNOAAAAPAOAC 


a ce ee ee me ee ae ee a a ed a ad ad 8 a A 8 at a td = = ws ds es ts od 4 nt 


- a Terminal Port oriver” 
LT new CIR UIT = Get Concentrator State 


« SBTTL 


la 


ts: 

R3 = 
R6 = 
R10 = 


W CIRCUIT: 
MOVZBL aati 


MOVL 
BEQL 


If this is the same source address, then we are Pa es for a Gai teats 
t will have the same local index and a st ate of 
$ not the case, then just clobber the cir 


ae ad 


starti 
Starting. i 


CAPL 


BNEQ 
CAPW 


SOBGTR 82,1 


t match or reutt ¢ reult 
ying to restart it perhaps because it reboot ted. 


= A ay = “but ter address 


R6 = receive buffer address 
R86 = cse gciress 
RO,R1,R2,R5,R4,R7 and RI are modified 


EP=1906 11:40:02 LAr vouGsRES DRIveR.man:1 “2 (81) 


on LTSNEW_CIRCUIT = Get Concentrator State Block 

; LTSNEW_CIRCUIT = Get concentrator state block and initialize it 
; Functional description: 

a arene with 
the ck’ tor es he 


; our stert 
; true, then 


is*teys 


svci is ys and the circui 


res to chee's oe since avci 
s already runnin 


and start a wgireults Fest 


~ the pA .  R 


Find free onsey ‘9 CSB_TABLE 
Length of table in longwords 
Get CSB addres My 

Ignore unallocated ones for pass 


cuit. 
NI source address match? 


Br if not Look for more 
Rest match too? 


Br if not, look for more 

Is ns, a bebe Cocat wc ind yo > 
v x ? 

arvif nets eit elects ie 

Is the state still “starting? 


Br if not Riu circuit 


Else, tell h gher code to retrans 
our peselal message 
Get rid of UCBs 


; Form iliegal address 


to stop next compare 
Try whole table 


K 4 


LTORIVER Terminal Port Driver 'AX/ VAS ° P 
rae i T = Get Concentrator State g- 208-1382 14586; 53 CAT BOG eRe Se TORI VER MAR: 1 — (ff; 
7 : Search failed, a to find a free CSB 
bes ; Br if we are shutting down, 
1 mOVA cere s Sra, ; Re ator a. tin succeed 
1 ROVZBL serie ie R2 ; Set t max CSRs 
ye pe 1 iv etie toe 
e Ss, 
1s CeecTR ko. cos : til dose 
3 gAvO00e i 3 Return resource error 
19 508 LAL RO 3 Beqyrn failure indicating resource 
RSB 3 lure 
§ 60$: 8 
: Check the protocol version of the incoming message and reject ail but 
: 3; our own. 
: $ AOVAB RCV_T MOATACRG), RO ; Address of first slot 
CMPB stat 8 .pve EUR RO), ; Check version number 
BNEQ sts ; Must be equal 
: Check the circuit bay ma value (in als pies 3 10 as 
§ ; 3 6We will accept anything g in the renee, we © 1270 as; cal 
3 values are 1 to 1 in this byte field. 
5 fst SST .8.CIR_TIAR(RO) : Is he field positive and non-zero? 
BLEQ 0$ ; Br if not, illegal value 
; ECO is not checked 
; R4 => CSB table address -4 
: Compute size needed for UCB List at end of CSB, 
:JAvOQ0e 3: size is based on MIN GHB .B_MAX_SLOTS, STRT _B_AAXSLOTS(RO) J 
:JAY000 MOVZBL W*GHB_B_MAX_SLOTS.R ; Assume ours is MIN value 


CRPB Sat 6 BaAneCoTscROy RS : Is revd slot count larger? 
BGEQU 08 ; Br i yes, use ours 


ROVB piat B_MAXSLOTS(RO) .RS Else, use smaller of two 


RS, AI : Multiply by 4, and save in R1 
LTSCREATECSS : gregye a CSB 
BLBC : resource error 


mOvVB i CSB_B_MAX_SLOTS(R8) > Save the maximum a! lowed slot count 
; Save the server's name 
ASSUME STRT ° ay? EQ STRT_T_NODE+GHBSK so 

nine) $s alirst st slot 


aa Maar NRE a? St teeth ed 
siete 4. “MODE TROD f address of poe name 


point to src name 
nove BL tas Ri i $tlp ao gt (Server) name 


CLES GINO LAGASSE ES 
=~ 
o 
oe > 
[7] 
ez 


F 
o 


2 


nay 


10 


Fe 
Se 23225S2 
S Sess 


a 
= 
VRVVSRU=SSS 


o 
s $$ +4 
BSRaSSSaa= 
a | 
— @— 
Pe 
kt td ts td 8 et as a a ts se 


ee 


SSS MARE ¥ SESXKSE 
BER, Bs 
22 $88 SF SRF 


& 
& 


&eS 


TENE 


3 
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ocal Area Terminal Port Dri —orr 
W_CIRCUIT = Get Concentrator 


cme et es st et 


NOU UP 


758: 


aces iT ama NARELEN 
geen oR 
Ralf 


Ri, wit tid CSB_B_SERVER(RE) 


stare SUMCISEE TTR: a Ax, 


Ct aS aes 


SRESc DRIVER. MAR; 1 


Account "Sor length. ca 
; Save registers 
3: Copy the server name 


POPR @*A<RO ,R3> 3 Restore registers 

: Make the circuit ti t value twice the keep_alive value 

: received from the terminal server. 

AOvw #3600, CSB_W_TIMRESET(R8); Assume @ default of one hour 


MOVZBL STRT_B_KPA_TIMR(RO), RI ; 
BEQL oe 
MULL2 R1 : 
Inc a : 
ROVZUL ay ote : 
CRPL R1,R ; 
BNEQ 3 
mOVY R1, CSB_W_TIMRESET(RE) ; 


: Compute maxiaum buffer size to 


MOVY = @XAT_C_MAXDATA ; 
WT RAX MSGSIZ(R8) 
SUBW @xnt~ CoHOR WORCTEN 
TRT_@ MRSGS12 (RO) 
BLEQ 


CPW «= ss STRT_W_MSGSIZ(RO) 
“WAX “ASGSIZ(RB) 


STRT_W_MSGSIZ(RO).- 
CSB"W" MAX "ASGSIZ(RB) 


; Make timer reset value 

; &@ good value 

; Look for five times the period, 
more 


and one 

Check for overflow 

Did we overflow? 

Br if yes, use “ty * ae 


; Set the value in the C 


; Assume ours - A erin allowed 
3 Oy H .. neoder is remotes size 


:; Br if not Loree enough 
; Is remotes buffer larger? 


; Br if yes, use ours 
; Else, use smaller of two 


Wote that locidn and xmit queve headers were setup by CREATECSB 


RCV_W_SRC C1D(RG) c p_W_RER 

CLRB 3=s-: CSB B "NUR ns? oTsiRB) 

CLRY «= CSB“ XMTTRO 
CSB" TIARESET(R ee 
CS6_Q TIMEOUT(RE) : 

CLRe 3s CSB. EFC (RE) : 

MOVW #LATSC_PROGRESS.- ; 
CSB_W~PROGRESS (RB) : 

MOVL  CXBSQ_STATION(R3),- ; 
Cs. pst 

OVW cx STATION+4(R3) ,- 3 
CSB_7_DST+4(R8 

MOVE #CSB“C“STATE_HALT,- ; 
AS B-STATETRE) 

ANE GY CSB Ww XSEQ(RB) 

MOVe a&<- TOS ,CSB_' ic) RSEQ(R8): 


ID(R8) ; In case of retransmit 
Rode default is balanced 


; Not timed state 
; Set a nonzero timeout value 
; even if the normal value is zero. 


No UCBs here 


; Set for allowi rogress 
; while we otert en . 


; Store remotes's NI address. 


Circuit is halted 


; Initialize transmit sequence 
Initialize receive sequence 


ay 


oe Si, 


2s 


eS 


55 


- 
= 
coo ™ 


wn 
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1 
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4 
al Port Driver 
t Concentrator State 


B7EP=1986 11:40:82 ERAT oucSRESC DRIVER. MAR; 


: Obtain all necessary transmit buffers for use 


tire 
CLRB 


OVAL 
ROVZBL 
ROVZWL 
JSB 
BLBC 
ROVW 
ASSUME 
ROVW 
ROVL 
mOVa 


CLRQ 
MOVW 


INSQUE 
SOBGTR 


mMOVZBL 
RSB 


: Resource error return 

MOVL = RB, —RG 

BSBU 4«=Ss L T$DEALOCSB 
LRL=—s«aRO 


C 
RSB 


MAXLEN, R1 


ONONPAGED 
Ri. CXB$W_SIZE(R2) 
cx 


CODE EO C 


YNSC_CXB, = 
CxBSB_TyPE(R2) 
RB, CXBSL_T_ CSB(R2) 
csé T DST CRE) - 

=STATION(R2) 


2 


#SS$_NORMAL, RO 


; Not busy transaitti 
; No buffers waiting to transmit 
; Address of the transmit queve head 


Set number of buffers 


; Size of the buffers 
; Allocate the buffer 


No such buffer 


g store the size, 


; the block type 
; and indicate not multicast buffer 


; Save CSB address in CxB 
: Initialize the destination address 


3; Zero circuit header 
; Store offset to start of data 


Queue the buffer 
for each of the buffers 


Move the CSB address for the cail 
Clean up the CSB before we leave 
Return an error 


Ss 


ee Se ee 


ee EE EE EE EEE———————————— i | 
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\é -SBTTL LTSDEALOCSB = Deallocate a (SB 
1 IP : LTSDEALOCSB 
1° > FUNCTIONAL DESCRIPTION: 
1° | Deallocate the transmit buffers. 
14 i INPUTS: 
1° : : R4 = CSB address 
14 6g : OUTPUTS: 
1 3 RO-R3 are destroyed 
14 $3 << 
14 Y 
14 71 LTSDEALOCSB: 
51 OF GA 16 7 MOVZBL #LATSC_XMT ett -1,R1 ; Get number of transmits -1 
50 4a mal 009 14 3 108: ROVE L_RCKBTRS)CR1}, RO ;: Is an FFI transmit in progress ? 
OC AO D4 140A CLAL ¢ 18s T_CSB(RO) : Delete backpointer to CSB in CxB 
F3 51 Fe 16 1 $0: SOBGEQ 3 ang if more 
50 Bs OF 14 77 25$:  REMQUE 9¢$B-0 Q_XBUFQ(R4), RO : Now dump ati the buffers 
5 11D 14 7 BVS : No more buffer 
or 30 (14 BSBw L{seEAL Poo. 3; Dump a An + bea 
F 11 1° : BRB 5$ 3 
50 3¢ B46 OF 14 § 308: REMQUE @CSB_Q_XWAITQ(R4), RO ; Now dump all the waiters 
0S 1D 1463F BvS 40$ 3; No more buffers 
0795 30 (1441 BSBW LiseeAL Poot ; Dump a buffer 
F5 11 rer 5 BRB 3 
535 68 AG QA 16446 40S: MOVZBL £58.68. 1NX(RG), R3 : Find our place in the table 
06 12 146A BNEQ $ 3; Grea 
re: DEBUG 3; Not properly initialized CSB 
EC61 CF4 96 14 91 50S: INCB GHB_B_LOC_ CCHKCR3) ; Bump the eee ghost digit 
50 EBDB CF4 of 14 9 MOVAL (ny, LuCSBTABLE=4 R3],RO ; Address int 
54 D1 1450 CMPL J, 3 Check this po + with the one 
06 13 146 BEQL $ ie 
139 DEBUG 3 YSote s clobbered or CSB addr bad 
60 04 1 97 60$ CLRL (RO) 3; No CSB address here anymore 
148A ; We will now save this CSB on the OLD CSB queue, buc we will 
120A 3 od. to remove an old entry if we exceed our Limi it. 
50 54 DO 146A MOVL = R4, RO : Copy CSB address juse in case 
146D e want to deallocate it 
OC AS «OS 16 TSTL B. 2_LCB+LCB_L_MSG_ ent chan"s Any internation” t a 
08 12 14 BNEQ fy yes. save 
10 A p 167 ste oaaameameaiars a I Aformation in counters? 
ooge 3 44 70$ BR 180$ 3 Else, Nothing. Interesting here 
147A $ We will now scan the CSB List for any old CSBs that match this 
147A 3 one, that way we will only save 1 entry per server. 


B 
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5 
LTDRIVER = Local Ar Pa 
Len OUS ‘ LTSDEALOCSB = Deallocate a CSB Bonn 1382 | 1:38 $3 LAT.BUGSRCILTDRIVER.MAR; 1 - (8, 


147A 1 : 
51 C6 cf 05 1ocn ih HOVAB Bihan OLD_CSBS+GHB -AREA,R1 : ett, Listhead of old CSBs 
g DO 14 g 15 80$: MOVL (RO) OR 3 Get next in queue 
D1 14 616 CMPL Re dhe : Are we back to start? 
6 13° 1488 1 BEQL 106 3 yee more - insert new sentry 
EA D1 148A 18 CMPL CSB_Z_DST(RG) = : Does the Ethernet address match? 
£ ac 148) gee. _DST(R2) 
F 12 148F 0 BNEQ ; Br if no, try next 
33 AGS «BT OU1491 1 CMPW CSB_Z_DST+4(R4) ,- 3; Full address match? 
A2 1494 § G38_2.0ST+4(R2) 
EA 12 1638 NEQ :; Br if no, try next 
53 1C AG GA 16 4 MOVZBL 5a B_SERVER(R4) ,R3 3; Get length o server name 
1C a2 53) 91149 «3605 CMPB —saR'3,, CSB_B_SERVER(R2) ; Lengths smaten? 
EO 12 146A 6 § NEQ 80$ ; Br if no, try next 
7 BB 14A2 36 PUSHR #°M<RO,R1,R2> : Save resisters 
1D A4 3 1404 36 3 CMPC3 R3,CSB_T SERVER(R4),- 3 Does the server name match? 
1 a2 1448 36 C58_T_ SERVER(R2) 
0 BA 14AA 3630 POPR #°M2RO,R1,R2> 
04 «12 12ae 1 BNEQ 80$ ; Br if no, try next 
Ven ? 5 : Take sum of counters and store in CSB @ R2 
14AE 3635 hop CTR CSB_Z_LCB+LCB_L_MSG_XMT(R4),- ; XMITs 
14AE O36 CSB-2-L LCB+ LCB- L “MSG_ XMT(R2) 
1489 363 ADD_CTR CSB_Z_LCB+ tee L “MSG_ RCV(R4),- ; RCVs 
1489 oes CSB_2_LCB+LCB_L_MSG_RCV(R2) 
14€4 3639 ADD_CTR CSB_Z_LCB+LCB_L_MSG_REXMT(R4),- ; REXMTs 
14€4 3640 CSB_2_LCB+LCB_L_MSG_REXMT(R2) 
14CF 3641 ADD_CTR CSB_2-LCB+LCB_W"SEQ_ERR(R4),= ; SEQ_ERRs 
14CF 64 CSB_2-LCB+LCB_ W- SEQ “ERR(R2) W 
14DA 364 ADD_CTR CSB_Z_LCB+LCB_ B- INV “MSG(R4),= :; INV_MSGs 
14DA 3644 CSB_2_LCB+LCB_B_INV_MSG(R2) ,B 
14E5 3645 ADD_CTR CSB-2-LCB+LCB-B-INV-SLOT(R4S,- ; INV_SLOTs 
14E5 3646 CSB_Z7_LCB+LCB_B_ INV— =SLOT(R2) .B 
14 14 1ep> rat 1008 BRB 1808 3 And delete the CSB @ R4 
re ret : Insert new CSB into List 
EC5S1 DF 64 OE 14F 651 INSQUE (R4), @GHB$Q_OLD_CSBS+ -; Save CSB at end of CSB queue 
14F $36 H A+ 3: since » raed Ly bea ercores 
ECOF CF 97 14F7 365 DECB GH B_OLD_CSBCNT 3 Use up one more slot 
0c 18 14FB 3654 BGEQ ; Br if still within (sB" l “te 
EC99 CF 96 14FD 3655 INCB nasa OL CSBCNT 3; Else, restore count 
50 EC3F DF OF 139) $28 REMQUE schs 5° 5Ses¢ - » Remove oldest entry 
0600 30 1206 $28 180$: BSBW if My hy ; Deallocate the CSB block 
05 1509 3659 190$: RSB 
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e 00 
- Create an LT UCB ~SEP-19 


ae -SBTTL LTSCREATEUCB = Create an LT UCB 
; LTSCREATEUCB - Create an LT UCB 


create ? uce by cloning it from the master UCB zero and 
nitialize it as part of the io database. We can't lock 

the io database for wr t¢ access, because we aren't a 
process. So we just do it and hope for the best. The 
modifications are such that coge scanning the database will 
not be fooled if ehey are straight forward. It is possible 
to write code that will be gentused when @ new ucb appears, 
but we don’t have any solution other than waiting for the 
the request to come here when the database is not locked. 
That would probably mean that many connection attempts would 


time out. 
NB !! 
The 1/0 data base is not locked!! 
Inputs: 
none 
Outputs: 


RS = new UCB address 
RO = success or failure 


R1-R4 clobbered 


LTSCREATEUCB: 
MOVL GHB_L_UCBO, R5 ; Get the UCB to clone from 
JSB G*10CSCLONE_UCB : Clone the UCB 
BLBC RO,90$ 3; Exit on error 
MOVL R2,R : Else, copy new UCB address 
6 CLRW = UCBSW_REFC(RS) : No refs yet! 
697 90$ RSB 
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-SBTTL LTSOESTROYUCB 
LTSDESTROYUCB = Destroy an LT UCB 


This ro 


: if 


to go crash with 


from any. 
@ condi 


loginout has not 
caseee the class dr 


en run 
ver wil 


WOO US Vt" OOO ne 


a ee Ht nt 


is available! 


Inputs: 
RS = UCB to destroy 


Outputs: 
RS = UCB address 
RO-R1 are destroyed. 


rr Se Se Ge Se Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge See SeSseSe 
6 + 
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TSDESTROYUCB: 
cRPL RS,UCBSL_TT_LOGUCB(R5) 
sty Su_REFC(RS) 

SETBIT suCBSv, DELETEUCB, 

JSB Wotesereié _ucB 

ane eI 
40 50$ MOVB #UCBSC_LT_STATE KILL. 
74 uCcB =LTASTATETR9) 
7% CLRBIT #UCBSV“LT“DEAD 
74 iy BSB°LT “LATSS(RS) 
744 BSBW HANGUP~UCB 
745 908: RSB 


same as the eetieh on case aoe 


Also note, that we must ensure shat the LT UCB has been detached 
VT UCB, and that the REFC is 
jon ypere the class driver will not detach a VT UC 

h the disconnect _ 


D5 
ROVUCE “= "Destroy en tt ae  -S-SEP=198e 14:86:98 


= Destroy an LT UCB 


Delete a ved from the fo data base that has been Figcqnnec ted. 
tine — be at gh IPL when the 1/0 database 

i? f regs eter. we ar 

situation is not qu f° the 

one can be much more cavalier. 


The 1/0 database is NOT locked for write access, BUT the MUTEX 


; And hangup the UCB again! 


8 
point is called. This occurs if 
t is about to be run. In this 
"ase have detached the LT UCB Pat the 
B and we can check for that condition. 
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going. to deallocate om 


has gone to zero. There 


Is this UCB — for deietion? 
Br if no, reque it 

ALL refs gene? 

Br if no equeue 

Else, allow UCB to "be deleted 


Delete the UCB 
leave 


Enter the KILL UCB state 
Clear the dead indicator 


Return 


es 


(TEAL 


D4 


00 ett 


ocel Area Terminal Port 
C_.UCB = Allocate New L 


ea a cr a ce ce cme ce a ae mee me cc em me me me em ee ee a ad ed dd ed od = = = = oe = 


I A ee 
DP NVITBRS 9 BH 2 OSS BF NVM D NNN SH FOGVNLOSC OCWOVOO~N 


SIN 


as 
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Outputs: 
* & 


» SBTTL 


rher™ 
ucB 


B7st=198e 14:86:82 EMT Bbc 


AX/VMS 


LTSALC_UCB = Allocate New LT UCB 


dress 


a mod siti ied 


LTSALC_UCB: 
CLRL 


1$: 


° ~ 
iT) Cad 
ee ee 

oe 


308: 


* TEMP 


8 
SOBGTR 


*TEMP*® concentrator bug 


BSBW 
POPL 


*Trsace UCB = Allocate a new LT UCB 

Subroutine to select a UCB for a slot. 
Inputs: 
~ R 


concentrator bug 


cSB_L L_UCBLST(R8), R& 
C36 BLMAK SLOTS(RBD, 


Re “ts UCBLST(RB), R4 
6B PM. SLOTS(R8), R1 
Rass 


508 


SLT 
it 


q 


4 
ue 


108 


B_COUNT(R7) ,=- 


ive buffer slot address 


rece 
CSB ad 
pyecess or or failure 

hy 

rece ve A. fer slot address 


Sete Se Se Ge Ge Ge Ge Ge te 


LT_B_DST_NAALEN-SLT_ t 


R4 
R4 


REATEUCB 


Return failure if no UCB 
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Search the eof for this CsB8 


Save the a 


a slot, my word 
Is th s the same terminal calling 


re 


ain? 
Noe th then continue 
Yes — _ betup message again 


Look again 


Search the sree for this CSB 


o be had here, so fail 
Is 9 big enough? 


-DATA>+ 


oka 
£38. 2.LCB+LCB_B_INV_ suorindy 3 else: Say " ivatie slot 
i Save the address in tabl 
ompute jogos for this 
; Save the Tee t 


; gree ear 
; Obtain the 


Pave 88) 


LT 
vOi 


F 5 
voe~O08” LTBALELuCB’= Allocate New LY UCB. B-stP-198e 11:06:58 ELA oucsaeScrDaiver.nan:1 °° (38) 


53 mci 1 POPL Rs : and its address in CSB table 
p7 E BLBC iD owe have one bad 
73 2 MOVL ree ci 3 8 Ute s.adgreis” ih ésae table 
FGF BSBW tru tal : oy al 2 yee 
0141 ¢5_ = § MOVB 4,UC my £0¢10(R5) : et locat "slot ex 
19 A MOVB itoge-t RCIDTRI) » e. ; Load remote circuit id 
50 a EF 1 EXTZvV “thy 8. Appear). RO: Get credit total extended 
Bo ee 01 81 ADDBS = #1,R0,UCBSB_LT_TCRED(RS); Give ourself an extra credit for 
the start slot 
wll af 90 mOVB #sLT os cs nainepcnay "*<- hax AtRep? et slot type and credits 
63 8E MNEGB wrt 3 3 Ses credits pots sagged wh to remote end 
O147 C3 nese ree BRS) ; _ kept as negative value 
82 C B4 CLRW uCBSW_ERRENT(RS) 3 Reset the © error counter that 
AB BISW eit BSM_INT!<- ; Expecting int interrupts & online 
AS y BSL gIS(RS) ; 
0134 cS) 5 0 MOVL ucé Tag sbcns) 3 Load CSB address 
2D INCB sé 8 TREFCKR ; One more UCB here 


: Compute maximum allowed slot size 


SHOT NAS UT RESET ELSE TUB OSUCCSS EEO MESES 


ma af 90 Aove rotaEe mC ; Assume our rs is the maximum 
06 {3 91 CMPB tite. SLTSIZ(R7),- : Is renetes size smaller? 
= Og 1 BGEQU B86 LTS OTSZ(R5) ; Br if no, use ours 
off ar $5 vB $11 EBSE°tT SLOTEZCRSS : Else, take remotes 
0146 § 90 MOVB cot -t1-3 3 TAVEtRON’ - 3; Set the initial state to RUN 
6 90 MOVB #GHB STAT Story. ; Build a start slot 
_— 5 PUSH R COTE T COCR 5 Save UCB address 
3 Sav 
05 2 MOVC wGHe ¢ _STRT ~$t OTL.- ; Make it look Like output data 
FEB CF T~STRT-SLOT,- 
14¢ : ycose- LT TCBUF ¢ R5) 
8ED POPL ; Save UCB address 
1 B1SB #UCBSA_LT_DATA, ; Force data through output slot 
0142 C5 ucB “LT ~DATAUCRS) 


: Check for the disable login flag 


ce cc cc ce ce ce cc ce ce ce ee ce ee ce ee ce em ee me De ee me ee me me me ee ee ee ee ed ed ed ed aed od ed ed 


51 07 a7 MOVAB SLT_B_DST_NAMLEN(R7) ,R1 ; ski ° dest. slot name field 

0 1 of ROVZBL thi yecrs =: : Gets size of dest. n field 
1 0 0 soot & 3 ig he dest. name ? 

0 A 161 MOVZBL (R1)+,RO ; Gets ze of src field 
1 0 1 ADOL ; a p the src name field 
529 51°° A 1 ROVAR SLf_T_DATACR7) ,RO ; Compute. sles of slot “an toned 

50 02 i? $A Rov ZBL sit B-COUNT CR?) .RO : Get size of entire stot 
50 S52 C2 SUBL ~=s- RR ; Compute bytes remaining 


So 


5 
voe-O0s” cobseelutges Arras ort ordeer B7gep~ 1900 14245:82 EMA SucSReSCrDRiver.nar:1 "29° (83) 


ts See ; Br if no more pot do login 


Bet arameter c 


—— 
OWI NOP 


: Br if no more data, do | 
S seve € current pereeeser ress 
k oO next parame 
: as Chis . Specs "stot _ftes byte? 


er it fete _ roamet 
: Et ise, set tern ind to NOHANGUP 


: Don® t A fe As ore STOP slot 
my ie t KILL the UCB: 
Br i login 7s" disabled 


© Gre Be Se Se Ge Se Ss Se Se Se Se Se 


atte FLA v BIN, cra) ,658 
uce Vet DECHAT(RS) 


#uc BOUND 
UCoSe ch CATSTS(RS) 
#SLT_FLAG_V_LOGIN, (R4) vais’; 


the class driver to log us in 


MOVL UCBs, 17 CLASS(RS), R1 ; Class dispatch vector 
MOVL #iais, R3 ; Framming error with zero byte 


WMO OOMDBINIOE 


51 gi 5 
00002000 bf 


14 61 @CLASS_READERROR(R1) ; Cause read error 


JSB 
novz6L #SS$_NORMAL, RO ; Do we have a UCB for you. 


*TEMP* concentrator bug 
SETBIT gnoee PR percncaTe : Set mask bit 
PROTOMA K+GHB AREA ; Repeat create of slot 
Inc. CTR GHOSL_ PROTOCOL *GHO _AREA ;' Increment protocol error counter 
*TEMP® concentrator bug 
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-SBTTL LTSHANGUP_UCB 
*T TSHANGUP UCB = Hangup an LT UCB 


rminal Por 
= Cause 


process rundown and dealloca 


I $: 
qeng RS = UCB address 


Outputs: 
none 


-ENABL LSB 


LTSHANGUP -UCB_NOW: 


; Dispatch on UCB (slot) state 
$o1SPATCH sucess _LLT_STATE(RS) , TYPE=8,- 


<ucese ut Bi ihi3 _STOP irsiccuce>,- 
; Else 
MOVE #UCBSC_LT_STATE KILL. 
UCBSB_LT-STATETRS) 
LTSHANGUP_UCB 
POSHR #°R<RO.R R4> 
Bicw  suCcesA. thee Rene _STS(RS) 
SETBIT #UCBSV_LT_HANGUP,- 
UCBSE LT LATSTS(RS) 
MOVL UCBSL_TT CLASS(RS),RO 
JSB aCLASS DISC CT(RO) 
POPR “m<ROTR1,R2,R3,R4> 
90$: SE 
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- Cause Terminal Hangup On UCB 


Cause all the hangup effects erminal device. 
tion. of all channels to the UCB. 


race vo 


This should cause 


Already disconnected, 


Enter the KILL UCB state 


called again 
“ Mlugh dat ta) 
Indicate that. we're shutting 


Class driver vector address 
Call routine 
Restore the regs 


baal SA 


3 JAY 
3 JAY 


1 
1 


EAD4 CF 33 


0134 1 


14 
64 A 
0144 C 


inBBESomiées 


a3 
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3 3a 
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ee ae a a a dd ot tt 8 a ss a ss a 
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Terminal 
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-SBTTL LTSDISCONNECT = Port Disconnect 


LTSDISCONNECT = Disconnect the terminal Port driver 


Port driver entry to tag ~~ @ terminal. ed when 
Last reference is gone. we free the Slot. : the buffer 
And bump the sequence tumber. a PA we set the UCB offline. 


. 
e ucB 
=> lbs = do phe delete UCB 


ts: 
RS = UCB address 


ALL other registers are preserved. 


Implicit inputs: 


ucese_LT _STATE = mith => kill UCB immediately. 
STOP => send stop slot, thea “Rill ucs. 
727? => all others, set to STOP state. 


ns 


: ; Do not touch the UCB if it is the template UCBO 


tmPL GHB_L_UCBO 6 this the template ucb ? 
BEQL 508 = tae f yes, don't touch it! 


: Dispatch on our UCB state 
$o1sPATCH case. LT a efor 


<ucesc_it STATE Kitt >.- ; KILLed, jugt kill the UCB now 
<UCBSCILT_STATE “STOP $>.- 5 STOPed, we've been here before 


3; ALL other states, 


: If the circuit is gone, or there is no CSB for the UCB 

; then just delete the UCB immediately 

TSTL y _LT_CSB(RS) ; Do ve have a circuit? 
BEQL . Or none 

; Conditionally skip deallocation of UCB. on “hangup”. 
é.8 Br if not to “hangup” UCB 
BIC No veneer © we 


$s ; 
: 
STS(RS : @ again 
MOVB + Fk STOP,- ; éise. "pet t stor. gtete, 
TATETRS) : to send STOP slot 


: Make sure ae no data is given to CLASS driver, after 
; we've been here! 


oe 


voenO0e rier waa pactbeiver * Reyes 17:88:35 UAT BUGSRESC TDR veR.man:1 "°° (3%, 


SETBIT #UCBSV_LT_H : Indicate that we're shutti 
Atsisinsy — 


ie BSB-LT“L : _ down 
03. =i } obs ; Delete UCB when STOP is sent! 
0001 30 ie BSBW LTSKILLUCB 3; Get rid of the UCB now 
0S 16D BS os 90$: RSB ; Done 
16D6 
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-SBTTL LISKILLUCB - Delete a dried up UCB 


poss\ + aa put on the 


Inputs: 
_— RS = UCG address 


Outputs: 
-_ RS = UCB address 


| aa Se Ge Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Se 
; p 4 


a - Delete an LT UCB 
CB is all hy A one way or another. So we must delete it if 


deadlink. tise’ to be deleted on the next 


ALL other registers preserved. 


TSKILLUCB: 

PUSHR Bir yh -R2,R3, R4> 3 pore some volatile regs 

vlcw ay 3; No interrupt expected 
UCBSA_ IN ° : Not online, but free now 
uc STS(R5) ; For use again 

aSew LTSFLOSH_DATA z Flush all output dat 

Boke LT SUV TT BEAD < Set the UCB as) con the circuit 

BBCcS #ucesv If we es Linked UCB to deadlist 
uc Ch CATSTS «Rs, 208 : an error 


SETBIT 
ro gf PROT TOMASK+GHB wea 
Inc CTR guest PROTOCOL *GHB_AREA ; Increment protocol error counter 


then we hav 
 KILLUCe™ called twice 


must destroy the UCB (not called from SDASSGN, so 


This is because the 
deallocate it! 


hove 


; Ute to the deadlist 


queue the 
so it can be deallocated by the timer service. 
CLASS driver still uses the UCB even if we 


; Link UCB into chain of dead UCBs 


ast PPEADL acc : for disposal at timeout 


ROVL ; 
0 90S: 5% 2achOrR “ROR RS Re R4> ; Restore the regs 


a 
—@ 


L$ 
voo-008. (TSSIDELINEUCB’ = Set 0 UEB aside SrgEp=198e 11:40:82 EMM GucSRESerbRives.man:1 "8% ($5, 


\? : q ‘ ee -SBTTL LTSSIDELINEUCB - Set a UCB aside 
A ¢ ; LTSSIDEL INEUCB 
1? ¢ : Functional description: 
\y ¢ 3 —s. 2 _ aside to dry up on its own. Disconnect it from a running 
sé 
1708 0082 3 1 
s Inputs: 

1709 4 § r RS = UCB address 
1709 4 3 ; 
1709 4 3; Outputs: 
1709 4 § 3 none 
1709 & ; ALL registers preserved. 
1709 «4 $ 3 
1709 4 joo 
17 & 
1709 & LTSSIDELINEUCB: 

8 1709 «4 PUSHR #*A<R3,R ; Save registers 

56 O18 C 170 4 ROVL yeast. it CsBcrs), 5 t the CSB address 
1 1 1710 46 ae 1 $ . this is alread 
53 O41 C 9A 1712 46065 MOvVZ7BL yieee LT_LOCID (RS) - 3 Use the local slot index in UCB 
68 A643) GS SC1717?-s& CLRL = CS$B_L“UCBLST-4(R4)CR3)_ : to adjust state of UCB List in ¢SB 
0134 C be 1718 4 CLAL peest “tt CSB(RS) 7 r we have been here 
2D As 7 #W71F & DECB £388 B_REFC(R4) 3 One Less UCB on this civeutt 
03 ig 1722 4 1 3 We have more UCBs here 
0044 1724 4070 BSBwW LTSSTOPCIRC ; Then don’t wait for return traffic 
18 ee 1727 4071 108: POPR @°Acr5 .R4> ; Restore registers 
5 17 4072 R55 ; Return to caller 


S$ 
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ale ~SBTTL LTSCIRCDEAD = Declare circuit dead 

; LISCIRCDEAD = Declare circuit dead. 

3 Functional description: 

Log off all the processes ” each UCB and ng f 


waiti ° 
to free their UCBs. This will cause the CSB to go free 
If this CSB has no ucb's attached. then the CSB is j 


nay rit 


L 
IRCD 


r yo 
too. 
at cleaned up. 


RB = CSB address 


Outputs: 
ALi UCB’s hungup. 


Bi Pi, Pin Pt, Py Pi Pi Py I i in i i Diy Din Sian iy in Din iy Sir Si Site Sn | 


aaa naa a ee a a a ed ot = = a a = —s 


TSCIRCDEAD 
O3F? BF } Pay R1,RZ2,R3,RE,RS.RE, R7,RB,RI> ; Save registers 
20 TST Sos? ker CcRb) ; Do we have any UCBs? 
1 1 a4! : ; Br if no, so po yet ae = csB8 
57 69 oa r¢ MOV7BL CSB_B_MAX BLOTS (ne) :; Else. number of UCBs to scan 
56 6C 5 MOVAL C3 a L=ucecst (RB), ne * > List of the UCBs 
55 8 7 98 208 ROVL ; Get next UCB address 
1 7 099 BGEQ 3; Not system address 
FFG 7%4 1 BSBu LTSHANGUP _UCB_NOW 3 the process on this UCB 
‘5 5 f ez ; 1 60$: SOBGTR R7, 208 : For all the units here 
O3FF BF BA 746 1 90$: POPR #*A<RO,R1,RZ2,.R3,.R4,R5,R6.R7,.RB.RO> =; Restore registers 
05 or : ; RSB 3; Return to caller 
ie : ; Refc has gone to zero, send a stop message 
54 DO 1768 4108 1008: fove Re, ; Setup CSB address 
e 18 10 ree 1 6S88 tTéstorcinc ; Send a stop message on circ 
11 33 139 BRB ; And exit 
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~SBTTL LTSSTOPCIRC = Transmit stop message 


LTSSTOPCIRC - Transmit stop message 
Functional description: 

; Format and transmit stop message 

: Inputs 

; R4 = CSB address 
: CSB_L_STOPREASON 


; Outputs: 
: none 


DEFREASN: 


eASCIC /Node terminated circuit./ 


LTSSTOPCIRC: 
PUSHR 

MO R4, R 

TSI6 csé _B_REFC(R8) 


108: CMPB CSB_B sraren 


8), o 
¥ 38. C_STATE HALT 
BNEQ 158 
BRW 90$ 
15$: MOVW #1,CSB_W_TIMRESET(R8) 
MOVW #1,CSB-W" TIMEOUT (RB) 
MOVB #C$B_C°STATE HALT,- 
CSB_6_STATE(R8) 
CLRW CSB"W"LOCID(R8) 
vAQ CSB QIXBUFACR », RO 
REMQUE g(R0), R 
REMQUE B_Q_XWAITQ(R8), R7 
Bue 868 
DEBUG 
308: DECB se B_XMTCNT(RB) 
$: INSQUE T,~(RO) 
MOVL  R7, ROD 
MOVAB XMf_T -DATACR?) , R7 
VB #MTYP~C_HALT@FLAG_V_ 
CSB_B7FCAG(R8) 
CLRB CSB_ 8: “NUM_SLOTS(R8) 
MOVAB T“MDATA(RO), R3 
CLRB tn y+ 
VAB  DEFREASN, RO 
MOVZBL (RO), R1 
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addr of stop reason block 


#*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI> ; Save re separa 
Set CSB addr 


; ue are not suppesed to send 
; stop messages with 
; outstanding ucbs on circ 


$= 


in r8 


Have we been here before? 


Br if no 
Else, exit 
Set timers for quick timeout 


and set state to halted 


Zero the local ID 
Transmit buffer queue 
Do we have a free buffer? 


Make it a free buffer 
Save bfr header adr 
Stop message data 
Send a HALT message 


No slot data 

Set default end of data 

Set default reason code 
Store a detault text string 
the count 
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amt L - Transmit stop message “SEP- 240: LAT.BU L VER .MAR; 
Vv04 §05 TeefoPciRe T i g SEP 1382 4 8 $3 AT.BUGSRCILTDRIVER.MAR; 1 . (61) l vi 
1 17CC 44165 INCL R1 : including the coun 
63. +60 1 g 15 4) § MOVCS R11, (RO), (R3) 3; move count and String 
564 Ag p 120 41 MOVL _L_STOPREASON(RS), R6 : Do we have a reason 
1706 41 b 3; No reason 
50 02 A6 QA 1708 41 MOVZBL 2(R6), RO - : Set the reason bit 
1206 4] SETBIT RO GHBSL PROTOMASK+GHB_AREA ¢ and count the error 
Ze 4) INC_CTR gue L_PROTOCOL+GHB_AREA : as a halt 
50 a9 «(03 AGB O90 et 417 Move (R6)> = 3; Store the reason code 
W7Fi 417 STOP_6_RCODE+XMT_T_MDATA(R9) —; 
50 6 3C 17F1 4174 MOVZWL (R6)> RO 3 Offset to the string 
20 6 g 17F4 4175 ADDL  R6, RO : Set the address 
1 0 A 2b? 4176 MOVZBL (RO), R1 : Get the count 
b6 17FA 417 INCL Ry 3 and set the count 
0. zi \ere 4178 MOVC3 RI, (RO), - 3 copy the counted string 
: ! $178 40s STOP_B_RLEN+XMT_T_MDATA(R9) ; Leave r3 pointing beyond 
1c Ad = 533 4 1801 4181 MOVL Re CXBSL_T_ENDADR(R9) 3 and store in buffer 
54 658 4 1805 41 $ MOVL RB,R4 3; copy CSB address 
0264 0 1 . 41 BSBW LT$XMIT ; and transmit the msg 
OFF 8F Be 1 4184 50$ POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7.RB,RO> 3; Restore registers 
5 ! +4 hi 5 R58 3; Return to caller 
1 19 41 ; 3; Stop we bg sent once 
! ! a 3 3; Just wipe CSB now 
54 58 8 1 19 4190 90$: MOVL RB, R4 ; CSB address to R4 
FCOA «630 «(1813 «4191 BSBW = LT $DEALOCS8 : Deallocate CSB to pool 
F3 11 sig £138 RB 50$ 3; And exit 
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“SEP-1984 11: 
-SBTTL LTSSET_TIMER = Start Timer 


LAT .BUGSRCILTDRIVER.MAR; 1 


LTSSET_TIMER = Start the timer 
Functional description: 


tt a 


Start timer ticking to scan the CSB's for dead circuits 


RO-R2 available 


Implicit Inputs: 


IPL = LATSC_IPL (8) 


Outputs: 


ad Bo Ge Ge Ge Se Ge Ge Se Se See Se See Sete Ss te 
i > 
6 


TSSET_TIMER: 
MOVAB 


-~ «- 
- + 


RO-R2 are destroyed. 


GHB RO 3; Address of timer queue element 
rs. sts. v ACTIVE» : Br if timer already active 
B_STATUS and mark as actice 
BISB we Prsh =HOUNL BAD, Cberstaaeborse” FLAGS ; Make driver untesdebte 
MOVW erage if 3 Setup timer Queue entry block 
Senos For its first use 


Ad both the size and the type 


ode. 
Save the fork context 
3; Use TQE as a fork block 


MOVB YNS 
TOESB fo 

PUSHR Ay tf R4, 

MOVL RO, RS 


Sete Ge te 


Use the TQE as a fork block to start the timer. This is because the 
timer cust be started at or below QUEVEAST to synchronize access to the 


= 
fo] 
ad 
ee 


me me eB mB ke a Re BB a eB ed eB ed a td 8 cet ed a ed a ht tt ns nt as 


OD OOD NIP AE 2S OD NA NEW OOD NAN FS WIN OS ODNAU EWI 9 OONAUE WHO OONOU 


OAR REE EE AAAI WIAA IIRININONINONINININD 3 3 I BQO OOOO O00000000 


PPP PPLPPPPPP PPP PPP PPP PPP PEM KOS Ss CSS 


MOvVB 01M CUE UEART = : Set delivery IPL 
FKBSB_FIPL(RS) : a rors block 
$BB 40$ ate rere process 
MNEGL #) .GHBSL TIM_ACT+GHB AeA "Mark the timer as active for LATCP 
POPR #*A<R3,RE,R55 og BK, our context 
RSB : And return 


Fork erecese to start the timer. We need to go to ehfocgh from 
fork ipl to start the timer. We do this by aging th 
Queuveast IPL to be safe - using the TQE as a for Stock” 


JSB G*EXESFORK Fork to co me timer ticking 


OSBINT oy SYNCH 3 Raise to $ wash 
MOVAB TSTICK ; Address of t ck routine 
VorSt rpctrs) : is the for ps 
MOVL G*TTYSGL_DELTA,- : ~ tick Hi s from tty sysgen 
TOESQ DECTA(RSS : araneter for modem contro 
MOVB #TQES$C_SSREPT,- : Repeat ng tick 
TOESB_RQTYPE (AS) : 


CR 
Cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
Cs 
cs 
cs 
cs 
cs 
cs 
cs 
cs 
Cs 
cs 
C$ 
C$ 
Cs 
Cs 
Cs 
Cs 
Cs 
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LAT.BUGSRCILTORIVER.MAR; 1 
3; Set the time 


Be 1f:40:93 
S*EXESGQ_SYSTIME, RO 
G*TTYS$SGL_DELTA, RO 

; Carry to top longword 


; Queue the timer element 
; Restore IPL and leave 


#0, R1 
G*EXESINSTIMO 


CF ORE FF EO ee ee ae ee ee ee es es ee re ee ee re re re re re re ee ee ee ee ee ee er er Cl Ce 


E 6 
voe-O08” LTB Tick “C*finer Service Routine” BaSEP=1980 11346:82 EMMYGGcSRESCrDRiven.man:1 "29° (28, 


RO-RG are destroyed. 


ENABLE LOCAL_BLOCK 


f 5 cas -SBTTL LTSTICK = Timer Service Routine 
¢ ; LTSTICK = Timer Service Routine 
143 ; Functional description: 
B7C ; Enter here on each timer tick scan the CSB table and 
R7¢ 3 timeout each UCB with am tching € CSB for each CSB that has 
87C 3 timed ou For ie rose we on a circuit that has not timed 
143 : out we will reset its timer 
B7C ; Inputs: 
i : ” RS = TQE address 
B7C ; IPL = TIMER 
87C ; 
C 3 Outputs 
C § 
C § 
C 3 
C 
C 
C 


STOP_TQE: the TQE 


NNN 
CCSewaenanaaae aaa RRC Ceee L, 


NC_CTR ene -RETRANS*GHB_ARE 
NC"CTR C zi CBeLce_ L_MSG_ REXMT (RB) 


BSBW nae 


Count a retrancatsston 


CSB address for call 
Transmit the message 


ee cee i ee a aR oe ee 8 a DD eh a eB es a A BP eB ee we ed a a a 8 a a a ed on dd tt a 


5g 
74 
o 
rs 
8 
: : Stop 
OB AS B1CB Ab 3 a REPEAT, TQESB_RQTYPE(RS) Clear the repeat fia 
000D ' CF 8 BA " j BICcB #DPTSM-NOUNLOAD ,DPTST TAB+DPTS$B_ russ ; Make apleer retosdable again 
EBAF CF D4 83 4 CLRL GHBSL_TIM_ACT+GHB_AREA Feit LATCP we are no Longer 
: active 
01D8 =s«331 ? BRW 300$ 3 And leave Ls 
BC : LTSTICK: LA 
: DSBINT @#LAT Ha 3 Raise to synchronize LAT LA 
OFEO + 88 ; PUSHR cnr “Abe R7,RB.RI,R10,R11> 3 Save all the registers LA 
1 =€ 9 BBC B_SfS_V_ACTIVE : Br if we went inactive LA 
EO EB8FD CF 398 % at “B_ STATUS. STOP. TOE LA 
9C 4 ; Scan all CSBs to retransmit in balanced mode and time out circuits LA 
45 95 : that appear to be dead. Ls 
38 20 «00 9C 38 , MOVL @LATSC_MAX_CSBS, R11 : Scan the CSB table for LA 
SA : 95 4 D oF 9 MOVAL cn L se TRBLE. R10 : Active entries and check LA 
8 9 4 20S: MOVL 0)F ; Get the CSB addre ess LA 
43 ; Br if no CSB in this slot uM 
: Are we coming out of balanced mode and need to retransmit tie LA 
: First message again?? u 
02 OB As 91 3 CMPBséCSB_BB STAT red, ; State must be running LA 
ers8. C_STA : for active circuits LA 
2 4 BNEQ : Br if not LA 
52 ° TSTw £38W _XRTTROCRS) : Timing. out restart message? LA 
2 BEQL 3; Br if LA 
52 AB ° DECW £38W W_XMTTMO(RE) 3; Check for timeout LA 
1¢ & BGTR ; Br if not time yet LA 


"5 0208 8 


F 6 
voerO0s” irs Tite “Finer service Routine, B7SeP-198e 17:46:92 ULATeBucoRCSLTDRiveR.man:1 "2% (28, 


52 a8 02 680 é } : mOVW #LATSC_HOST_TIMER,CSB_W_XMTTMO(R8) ; Reset the timeout A 
p 1 ; Timeout circuit if needed LY 
50 7 180 é0s:  veCcw _W_TIMEOUT (RB) : Ch k the circuit ti U1 
2 te DA ONE cTR sBt- CL BCROWNSGNS AREA : griitn t t expired bass tI 
FE43 3} ES Bse0 Mi taCet ; Soclare the etresit a de LI 
) fA : mOVW at fe W U.TINRESET RB), - ; Reset the timeout to wait Lt 
jaw , 
B85 5B.) SCéFSS fF 90S: SOBGTR +t wae 3 Loop tit we are done ut 
a 3 L1 
EF 3 Now check to see if there are dead ucbs waiting to be cleaned up 5 
cf » 3 and if noone is using the io database right now, we can delete them LI 
ef 3 all in a flash. ul 
i H 
00000000'GF DE ef 100$:  MOVAL G*IOCSGL_MUTEX, RO : Is anyone owning the io data ut 
FFFE SF 20 3 F6 CMPW MIXSW_OWNCNT(RO), #1 ; base? ite so, then we must 1 
4 4 ; iy oge n o Lover. Hy 


GHB_L a irttetee RG 


a we, etamenes if so, incarn has been 
pee. to say so 
1558: ®8SBW LISSETENTRY Go rebuild the message 
ee RO Br if failure 
BW <XAT_B_MC_MULTIMR-XMT_B_MC_SET>-"; Reset multicast timer 


2 $g6_TAC_DATA, GHO_W_MUL TIAA 3 from LATCP set data 
161$ ; Br if value is okay 


BSS 


cme ee me ek ea ee me ee ea et BB a a et ek a ed ad dh od td a de a 2 


sf 
E CF 
EAAD CF 

05 12 


i ae YY YY ee YY YT Tt RRM MAMA ete 
= 


5 6 $ 

BNEQ ; 

54 344 CF i] MOVL : 
E87E gf 04 CLAL GHB-L_DEADLINK 3 al "lise | pointer L1 
4 OD 1108: TSTL R4 ~ 3; Any work to do? L1 
0 1 0 BEL «= «1308 : ALL done t1 
33 4 MOVL R4, R 3; UCB to delete ul 
138 cs : MOVL UCBSL_LT DEADLINK (RS), > Save Link to next one u1 
FCOA 1 BSBW Lispest TROYU 3 Destroy this UCB 1 
EF 11 4 : BRB 3 and go back for more Mt 
91 § 130$: Ll 
315 ; 7 
917 5 : Transmit a configuration message if its time. We tell all mF 
917 , 3 concentrators our node name, announcement string every al 
sf ; 3 so often so they know we exist. a 
91 : m1 
EADS fF 67 4 3 DECW 3” |MULTIMR 3; Time to transmit? Al 

3 18 oie? ; Br if yes, do it 
014 1 191 6 1408: ; Else, still time to go 
52 EACC 4 0 150$:  MOVL " L_MULTIBFR, R2 3: Get multicast buffer 
BEQL 5 ; Br if none 
FIE CF Bios one B STATUS. 1408. . I if alr in ss 
3 re, e rogre 
EBs 4 gf CAPB one -6- INC 3 Hes it been r et A mee 


PPP PPP PR Bi-i-t-i-i-i-t F 4 


aS SOT 
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w 
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wr-o-Oo-"O 


oS 
MoUs Ocounncevncownce > 


O90] MW 00 0—n) 


50 ef 
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00006000" 


000000F F 6 


E7F1 CF 
57 OFF : 
7 

50 7 

53 (01 


3; JAY0001 


rsPite “Cs 


c3 
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dO 
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dO 
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mer Service Routine 
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PEPE PPP EPP PEEP PPP ES 


Fa tt tt ot ot ot ot 
DOOD00D00000 


4402 SuBL3 


Ss 
en 


ono 


domes ee 


ee ce ce Bcc cee ce ee ce ce ee ce ce ce ce ce ce ce ce cc ce ce ce ee ce ce ce ee ee cD ce ce ee ce ce ee ee cee ee ce ee ce cee ce ee ee ee ee eed ed od ed 
Levees 
> > 


SESSSSSSO>> 
SE FESS & 


Terminal Port Dr = 
MOVY = @LATSC 
1618: MOVL 
; Adjust host rating 
‘ XMT_B_MC_GRP_LEN(R2), R1 
(RIT# RO 
RO, Ri 
Rf), RO 


RO, R 
MOVZBL (R1)+, RO 
RO, Rf 


a 


J 
WRI OOOnND 
Beoeoaee 
<oc 
~~ 
oo wm 
r Cr 


Ri, R4 

MPB cRi+, #2 
1g $ 

BRW 170$ 


163$: INCL RI 
MOVZBL (R1)+, RO 
L ri 
MOVZBL (R1)+, RO 
ADDL §~—RO, RI 


cpu_idle_time * 255 


100 * multicast timer 


where: 


SOONA NEM "QOD 


as 


GHB_L_LASTCPU,@GHB_L_NULLCPU,RO ; 


4403 MOVL § @GHB_L_NULLCPU,GHB_L_LASTCPU_; 
4404 MOVL  G*EXESGL_MP,R6 : 
4405 BEQL 1648 : 
5 SUBL3 GHB L NULLSEC,- : 

Ps GL_NULLCPUC(R6) ,R7 : 

0g MOVL MPSEGL_AULLCPUCR6) ,~ : 
4410 ASHL Wet RITA? : 
4411 SUBL -R7, RO ; 
\§ 164$: MULL  #255,R0 : 
1 MOVZBL #1.R : 

1 CPUDISP <<?90, EIGHT>,- : 
rf <785. FOUR>,- F 

1 <780, THREES,- F 

1 < ° > e e 

j yy * ONE>:- : 

2 <UV1; ONE>> ; 


Brep= 188s 17:26:83 HEMT BSceReSeraives.man;1 28° 194, 


TI_TIMER, TIAR ; 
GHB_L_AUL JPR. Re iin Smee : Ge 


Compute the service rating as follows: 


* cpu_weight 


cpu_weight is 1 for a 790, 1/2 for 785, 3/8 for 780, etc. 


; Start_with 1 
; Give 790 the highest rating 
; Rate as four 

Rate as three 


Rate as two 
: note MicroVAX II as two 
; etc. 


Reset timer 
t multicast buffer 


Compute address of node name: 


Compute address of node desc. 
add Te start address 
Cale start address of services 
add in start address 
Save address of service count 
Do have two service names? 
Br if yes, grecese it 
skip it 


Skip rating byt 
tale startvof first svc desc. 


Cale start of second svc rate 


Calculate ‘idle time’’ 
Set new last cpu time 
Get ptr to MP code 


Br if not there 
alee compute secondary idle 


me 
And set new secondary 

nul time 
Get 50% of secondary null time 


Let pecondery gcgouns for 
enty 02% additional eyeer 
Multiply by highest rating possibl 


41 
y 
St 
SL 
SL 
SL 
SL 
SL 
St 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
St 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
SL 
St 
SL 
SL 
SL 
SL 
Si 
SL 
SL 
St 
St 
SL 
St 
St 
SL 
S$ 
SS 
$1 
$1 
$1 
$1 
$1 


se 


14 a3 


infite “¢ 


C4 


o 
o 


9A 


th 
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~ARRARAT 


ah a ed ed a 
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SESSerETTT 
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PPO ESE 
ab ae ae ae ae 
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*S3e5 
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fMee = 
° ee 


4443 


re 1708: 


ses) 
4455 1758: 
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Bagep= 1986 14:26:52 


#860,R0 


<xXmT_B rt CTDATATRS XMT_B_MC_SET>- 


io 


RO,#255 


BLEQ \S7$ 
MOVZBL #254,R0 


Don't let rati 
or the jobcnt i 
L 


RO > € 
G*SYS$GW_IJOBCNT.G*SYS$GW_IJOBLIA ; 


G*SYS$GW_IJOBCNT, 1(R4) 


1808 
G*SYSSGW_IJOBCNT, 1(R4) 


XAT _B_AC_INCARN(R2) 
GHB" 


LLFFI, R4 
mans -¥ MULTI ,GHB_B_STATUS 


eho, 
eX FCS) ccxBs cese T T FEAVE (RS) 


OFF ISL_XMIT(R4) 
#°A<RSROLR7,RB,RI,R10,R11> 


fall to zero, unless the joy seit is reached 
greater than or eqal to t oblia. 


att 
@XAT_CHFLG_M_RATE,XMT_B_MC_CHG_ riateaste Aes rate change 


AX/VAS Ma 


o V04 1 
LAT. BUGSRE CoP TORI VeR-mAR: 1 a ($3) 


3 Rating will be highest 
: oe Fore 


$ congut e adjusted rati 
: Divide by highest "Patine +% 
; Get multicast timer 


3; Normalize recites by time 
; Br if zero rating 
; Ridiculous ati ? 


; Hf = set hig hi N ~ i 
3; Else, se est r 
; let INCL Rate to 355 de 


lise, set to minimum 
Are we maxed out/ 


Br if no, continue 

Else, set to miminum 

New second service rating? 
Br if no 

Else, set new 2nd svc rating 


; New number of interactive 
users? 
3; Br no 
3; Use the interactive count 
= the pon ep enndl rating 
TESETENTRY As. tise 


; Get FFI block address 

: r if none 

: ndicate that ealtteest is active 

: Copy CXB addr ress 

: Copy the destination address 

3; Save BOFF and BCNT 

; Start XAIT operation 
3; Restore t 


; Restore Plethe 


vr 


—L 


eceececeeeeececeeececcecececceeceececeeceeceeeceeeececeeceececececeecccece 
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-DISABLE LOCAL BLOCK 
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w 
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2 SERR 
RERLDESOLERE SP 
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create - Transmit &@ message aaa Fi ij 26:33 YENt pucene sr ToRives. MAP ; 1 eee 10) 

-SBTTL LTSXMIT = Transmit a message 
“i rsxmit - Transmit a message 
FUNCTIONAL DESCRIPTION: 

If the he is outst agin then record the fact ae shore is 

’ waiting meeeene- CxX8 is not outstanding Leis 

t for tense sion ae send it to the other aris :." — @ write. 


A ge ny tee. ~ Hag A _ Sreeree te gunet is the gequvenc 
of the myecage over time of ve aoc® dec oe that =" 
circuit is really d : 


a ad et td td = 
RRR NH HHH 

- 

- 


he we take We are generous 
: ae with the counter for dececting t this icles 
1 4% Input: 
: i oa: R4 = CSB address 
1 Ge Output: 
IAGE 4498 PurRO-RS clobbered 
1A6F ret 
1 rete -ENABLE LOCAL_BLOCK 
4 46 
1 & LTSXMIT: 
oF 1 & Renoue gcse_a XBUFQ(R4), R3 3 Remove the buffer from 
C 1A H & § BvC ; We had better have a buffer here. 
1A75 4 DEBUG ; Fatal error, no buffer 
96 1A7B 4 5$: INCB CSB_B_XMTCNT(R4) 3 One more bu buffer to transait 
a3 4 4505 InCcB CSB_B_XSEQ(R4) 3 Next mess ssoge fe » send 
1 4 mova CSB_T_CIRCHDR(R4) ,- 3 =. the circuit header for the 
1 4 ART -T-DATACRS) 7 message 
i 4 AB AT_T_DATACRS), RO ; Start of data to send 
co 1 4 SUBL RO, CRBSL_T ENBADR(R3) ; Make Length from end address 
A 431 mOvW exes! EROK R(RS),~ Copy Length to CxB forsat 
1A & 1 INSQUE cm) “acsB a XWAITO+4 (R4) Queue to tail of waiting buffers 
1A97 451 TSTB 6 _xmTeSyTR4) ; trangaitter busy? 
13 1A9A 4516 BEQL : Br if no, start transmitti 
96 1A9C 4515 108: INCB (pga: ; Else, count another transai 
yo 4 1 3 rd st placed one on the wait queue 
05 i“ $3! 208: RSB 
j & ; 
H 2 ‘ Transmit just the one buffer, not all the ones waiting. 
1 6552 LTSXMITONE: 
4 ! 2 a 96 $0_0_xBUFOCRS), R3 : get 8 he one buffer of interest 
rr & $ ts 3; No setter for this transmit 
1AAC 4 $ 30$: nc CSB_B_XMTCNT(R4) 3 count i. more r watt queue 
1AAF 4 nCB Fenn P-ASEGCRS) 3 ssege fe » 
4 CSB_T_CIRCHDR(R4) ,- 3 Set. the circuit header tor the 
- é xe CI-DATAGRED ; message 
é 1058 6 CUB” ROATCRBSL TENBADR(RS) : Behe Lovech ares sng address 
1ABF 4 vu CXOSL.T ERDRDRUAS) <= 3; Copy Length to CXB format 
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4 
Terminal Port Driver 


ansmit a message 


ire 


BNE 
i 


LTSREXMIT: 
TST8 _B_XMTBSY(R4) 
BNEQ 
mOVB _XMTCNT(R4), 

“XRTBSY (RG) 
debug code 
CMPB a yh? © 
SATSC IR BUFFERS 

BLSS 5 

BEQL 

DEBUG 

WOP 

debug code 

LTSXMTGO: 

REMQUE 9580 _XWAITQ(R4), 

BvS 

cePu = «CSB UW _PROGSEG(R4), ° 
CSB “W"XSEQ( 

BNEQ 

DE CW W_PROGRESS (R4) 

Peso it Q XBUFQ(RG) 

IWC Fn on Gnesi _EIRCDOUN* GHB AR 

PUSAL 

BSBu Re MS 

POPL =saRB 

RSB 

MOVW CSB_W_XSEQ(R4),- 
sa. PROGS Qchs) 
CSB_W_PROGRESS (A4) 

Build the CXB to transmit 

seat L_FFI, RS 

ROVZBL c B_XCXB_INX(R4) 

oy » CSB_L ereRBCReD ERT 

BICB = #*C<LATSC_XMT_BUFFERS-1>. 


XBSW_BCNT(R3) 
-B_XATBSY(R4) 


§$8_8_xMTBSY(RG) 


pezeut cn). @CSB_O_XWAITOQ*4 (RS 
RB 1 


) 


Sate 1988 14 388:83 


; Seort I 


AX/VAS 
LAT.BUGS Sorbet R.MAR; 1 


; Are 


; Br pan es : carry on 
i Just one by sade : 


; Place it on the 
And transmit later 


sth to start a on 
go ge busy?? 
the yes, t leave 
a ser os “a petrancaite 


ALL buffers on the transmit queue? 
¥ pe 
yes all of them 


More than all of them 


Enter to transmit for waiters 
Obtain the next waiting buffer 
Br if no buffer to hod pantie 


Are we making progre 

are the seq —s 3 Hed changing? 
Br if yes. — 

Nope. give t ind time then 

We have more time a 

Put the buffer k into the CSB 


timeout 
Clobber the circuit 
ars to be deadlocked. 
t all up 


No more time. 
Since it 
and clean 


Reset the rene sequence and ack 
to check oppins 
and reset the seeress counter 


og FFI Block address 


; Get MMIT CXB index slot 
skip address of CxB 
p to next slot 
3; Rodulo maxiaus 
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L 6 
voe~O0s” ae we transait& en S-sep-198e 11:00:82 ELATeBucoRESerDRiveR.nan:1 “2 (82, i 


SA AG oD 18 6 move 1, CSB_B_XCKB_INK(RG) ; ave for next time 
1 4 PUSHL me : 
$ Do 18s 2 rrttt Ut oe cussy bor fie, copy the FFI block address 
14 a3 18 a3) = =O i +d ¢ ROVL CxB6Su_ iF nit 8 i T ecm ; Save BOFF and BCNT 
i progress 
1846 LIF DEFINED LT_WISTORY a 
4 : Save a history of transmits 
50 468 a3 % 1 : MOVAB xXAT_B FLAG(RS), RO ; Address of data to save 
EBDA + on B5oe LTSAISTOR 3; Save the data 
or 2 i ~ENDC 3; DEFINED LT_WISTORY 
10 % 1 184 5 Jse OFF ISL _XMIT(R4) ; Start the XMIT operation 
4 BE 183 POPL R4 ; Restore R4 
0 183? : 150$: RSB ; Return to caller 
1854 4&4 DISABLE LOCAL _BLOCK 
1854 464610 
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ocal Area Terminal JAN-1985 z: AX/VAS Macro v04-00 
MAT _FFIDONE = FFI Transmit done rout gr yan- 13 186: 33 ERAT. BUGSRCILTORIVER.MAR; 1 ( 
: : 18 - -SBTTL LTSKXMT_FFIDONE - FFI Transmit done routine 
8 r' 1b ; LTSXMT_FFIDONE - FFI Transmit completion routine 
: 1$ : 3; FUNCTIONAL DESCRIPTION: 
ep 18 ; Post routine for @ transmit. Called d directly f from datalink 
: 1 : driver with CxB ederees in R3. have r0 - c5 to work with. 
B ? t INPUTS: 
o 4 3 a?. = Status of at request 
8 3 CxXB addres 
. : 3 R4 = FFI fleck esérees 
8 ; IPL = SYNCH 
f : OUTPUTS: 
: § R1,R2,R4,R5 clobbered 
8 
8 


oq 
LFS 


ASSUME IPLS_SYNCH EQ LATSC_IPL 
4632 LTSXMT_FFIDONE: 
46 PUSHR #*A<R1,R2 * "ye 3; Save registers 
46 ASSUME CxBsu_OCN a gxese 
4635 ROVL CxB$i-T SAVE (R ) ~Cx88 bor (R3) ; ; Restore BOFF and BLNT 
46 IWC_CTR Snes, eCOunt GHB. AREA : Couns one more buffer away 
46 e.es ; f no error 
46 vZWL XERRCOD+GHB nth? “Save error code 
46 IWC_CTR XERR*+GHB_AREA 3 one more error, but ignore it 
4640 208: e.es CxB$8_ CODE (R3),1108 ; Br _ aulticast buffer 
6641 ROVL exB8i-t T_CSB(R35 RG 3 Get CSB address 
ae BNEQ 3; Got it, continue 
464 ROVL rO 3; Toss this CXB then since the 
4604 BSBU béoea ; CSB seems to be gone. 
3 Leave etly 

4645 Bk8 L quietl 
rere $98 ROVZBL ATSC_XMT_BUF ay RO ; Get number of CXBs 
4648 45$ CPL CSBqL wet Re RO} : Same as we sent? 
464 BEQL ; Br if eft t remove it 
4650 SOBGEQ 3 
4651 DEBUG 2366 oops 
46 § 50$ CLAL _XCXB(R4) CRO) Zero entry 
46 InC_CTR C Fi at CBs UCB hx MSG_XMT(RG) ; Count one more transmit 
4654 InSQuE WRT Tote cRe) haus to tail for retransmit 
cb 5 DECB ct onTesyTRe) ; Any sore to transmit?? 

$ 6SBu TSXATGO 3 Sronente for waiter 
re 8 608 BRB 0s 3; Not done transmitting all yet 
4 3 

: If all UCBs are gone and we have transmitted a stop message last. 
3 then we can nate this (S89 go away. 

6 oO 
4665 ise _B_REFC(R4) ; Are all the UCB’s gone? 
466 CAPB CSB_B_FLAG(R4), Is the circuit dead? 
4668 enTYPnC “WAL T@FLAG. v po 


K“eeseee © 46 © EE 44 CEE £€ EC SC BC EC SC BELEE!F 
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04-00 - 
v04-00 LTSXMT_FFIDONE = FFI Transmit done rout 11:4 LAT. .BUGSRCILTORIVER.MAR; 1 (65) 
3 3 1BBF 4 3 BNEQ 70$ : Br if not 
F85C 4 =—350 = 1BC1 «46 pee LTSCEALOCSB : Get rid of the circuit block 
6 Be 18C4 4671 708: PR #*A<R1,R2,R4,RS> ; Restore registers 
a 
ete : fe ; Multicast buffer completed cL 
1eCr 4 26 1108: tLRBIT #GMB_STSV MULTI, ; Multicast is not busy now 
IBC? 4 HB-B_STATUS cl 
FS = 11) 1BCD 4 oe BRB $ ; And exit 
1BCF 467 dE 


Ll 
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*ra'arnage eranseie poses SSEBc188C 11:28:83 HMYSUCRRESESORIVER.nan:1 °° 122; 
-SBTTL LTSFFIPOSTDONE = Garbage transmit posting routine 
LTSFFIPOSTDONE = Garbage transmit posting routine 
FUNCTIONAL DESCRIPTION: 


Final post routine to dry up a CXB 1/0 when we are done 
with the channel. We simply deallocate any transmit buffer returned. 


INPUTS: 
R3 
RS 


sets 


nYP 
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oe 
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vo vw 
oO 
= @ 
oa 3 
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ddress 
lock address 


PPE LPLPL PLL ES 


OUTPUTS: 
RO clobbered 


LTSFF IPOSTDONE : 
PUSHR 


Sete Ge Se Ge Ge Se Se Se SeSseGe Se teSs 
+ 


#*M<R1,R2,R4,R5> ; Save registers 
R3,R ; Copy CX6 address 
LT$DEALPOOL : Drop the buffer 
#*M<R1,R2,R4,R5> ; Restore repreyers 

; Drop all RECEIVE CXBs 


00000000‘ GF G*EXESDEANONPAGED ; Deallocate the FFI block 


; End of driver 
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Symbol table 
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ATS_NULL 
IT ee 

BUGS. UNSUPRTCPU 
BUILB_TOEF 
CLASS_DDT 
CLASS_DISCONNECT 
CLASS_GETNXT 
CLASS_PUTNXT 
CLASS_READERROR 
CLASS SETUP_UCB 
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LTDRIVER 5 17:22: AX/VMS Macro 
Symbol table 382 14328:53 ey BUGSRCIL 
EXESAL_TQENOREPT teeneere = y GHBSL_STRENTRY = 1 
EXE SDE ANONPAGED eeeeeeee =X GHBSL-TIM_ACT s 1 
Ei y eeeeeere GHBSL_UCB = 
EXESGB_CPUDATA eeeeeene =X SHBSL—XCOUNT z 8 
EXESGB_CPUTYPE eeeeenee =X GHB LoXERR z 
EXESGL_MP eeeeeeee =X GHBSL_XERRCOD z 4 
EXESGQ"SYSTIME eeeeeere =X GHB OLD CSBS = 4 
EXESINS| IMO eeeeeeee =X GHBSS_COMA_AREA = 60 
FFI$3_SPARE = GHBST-CSBCTR s 
FFIS@-TYPE = GHBSV"BADCREDITS = 
FFISC"LENGTH = GuOSV_CSBINVA ID z 
FFISL-BL 5 GHB SV. BRANG = 
FFISL"CTX OL = GHBSV-CSBSTAL = 
FFISL_DL_OCB = GHBSV_CSBZERO s 1 
FFISL_ERROR = GHBSV"HALT z 
FFISL-FL = GHBSV~INVALIDLOCID = 
FFISL-PID = GHBSV~INVALIDREMID = 
FF ISL-RECV_DONE = GHBSV"-INVALIDSEQ 2 
FF ISL_ SHUT" DONE = GHBSV_REPCREATE = 
FF ISL-SPAREO = GHBSV_REPDISC = 
FFISL-SPARE1 s GHBSV-STAR z 
FF ISL- SPARE = GHBSW"VMSVERSION s 
FF ISL-SPARE = GHB_AREA i 03 
FFISL-XMIT = GHB_B_INCA aR 03 
FF ISL_XMIT_DONE = GHB"B-LOC_CCHK BR H 
FF ISW-CHAN = GHB_B_MAX_ SLOTS R 9 
FF ISW-SIZE = GHB_8_OLD-CSBCNT a 
FKBSB-F IPL = GHB-B_RATE ge 0 
FLAG_A_MASTER z G GHB_B_STATUS R 0 
FLAG_M_MTYPE = G GHB_C"STRT_SLOTL 
FLAG_M_RRF = G GHB_G_TQE R 9 
FLAG_S_MASTE = G GHB_L-AREA ® 
FLAG_S_MTYPE = G GHB_L-CSBTABLE R 0 
FLAG_S_RRF = G GHB"L-DEADL INK R 9 
FLAG_V_MASTER = G GHB-L-FFI R 
FLAG_V_MTYPE = G GHB-L-LASTCPU R 0 
FLAG_V_RRF = G GHB-L-MULTIBFR a 
FOUR 03 GHB_L-NULLCPU R 
FUNCTAB_LEN = GHBAL NULL SEC R 
T 03 GHB-L-UCB a 9 

GHBSB_LATECO = GHB-Q-MULTIADD R 
GHB$B_LATVERSION = GHB-STS_M_ACTIVE = G 
GHBSK~IDLEN = GHB-STS-M_AULTI = G 

a = GHB-STS_M_SHUT = G 
GHBSL-CIRCDOWN = GHB-STS_M_TQE = G 
GHBSL-CSBLST = GHB-STS_S_ACTIVE = G 
GHBSL-DUPL = GHB"STS_S_MULT: = G 
GHBSL-HISTORY = GHB-STS-S_SHUT = G 
CNB St NODE = GHB-STS"S_TQE = G 
GHBSL—NOXBFR = GHB-STS_V-ACTIVE = G 
GHB$L- PROTOCOL = GHB-STS_V"MULTI = G 
GHBSL— PROTOMASK s GHB-STS_V"SHUT = G 

=RCOUNT s GHB-STS-V"TQE = G 
GHBSL— RESOURCE = GHB" T_MAX"SLOT_TABLE A 
GHBSL-SETENTRY . GNB-T-RETASG ; 

SB 

GHBSL-SHUTENTRY z GHB-T"STRT_MSG R 
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LTSSIDELINEUCB PRS_IPL = 000001 
LT eetant io PRESS ID_TYP = 9000006 
CTSSTATE_ENTER_RUN PRE-SID-TYP = 9000006 
HEA ae : 
LTSSTATE “START PReTS D-IVP 79 = “ 
LTSSTOPCTRC PRE-SID-TYPMAX = 004 : 
LTSSTRENTRY PRE-S1D-TVPUV = 0 $! 
LTSTICk PRE-S 1D TVPUV I - : 
LTSUCB_INIT RCV~B_ACK 04 s : 
Hea ce ae Bae : 
RCV"BFLAG ¢ 
LIBVECE RCV"B-NUM_ SLOTS 6 s! 
LTSVECTOR =B-NUR s H 
LTSXAIT REV-B-SEQ™ s 3 
Lean aone REV-BoERE IDs g H 
LTSURT FF LDONE RCV-T-DATA g : 
oN RCVU-DSTD 
LT_HISTORY . ¢ : “ 
fet baer Rae sient 
LT RENT ESBRANCE SCHS$GL-NULLPCB eeeeeeee x Ss! 
“RENT CRBS TALE SCHSRAUAIL eeeneeee x 
LT“RSN-CSBSTALE CHBRAGAL eeeneene x 
LT“RSN-CSBZERO SCHSRALT J 
LT“RSNOHALT SEND_ STOP. SL R 
LT“RSN~INVALIDLOCID SMUT : : 
LT“RSN~INVALIDREMID $12.7. : 
LT“RSN-REPCREATE SLOT (oop IW FR 03 
LT“RSN-REPDISC SLOT“LOOP~ ; : 
LT“RSN-START SLOTESIZE™ : : s 
RAR PR7SID e SLI_ATT_A_apont : 6 
MMGSGL -MAXPFN eeeeeeee =X 93 SLTLATT_ ~AgOnt . : 3 
watt © 90000000 Se Ty CBU TROL G 
ace . SLT~BOAT. SLTSIZ g SI 
RTYP_C_ CONF T-B-AT St : : 
RIYPTC“HALT . SLT-B-COON s 
RTYP~C"RUN . SLICBCERED g 
RTYP"C"START . SL1-B-08 cont g - 
NEXT“SCOT St 1-8-08-1F OF g s 
NEXT~SLOTO SLI=B-DB-1F OX g 
ot tT7B-DB-OFON G SI 
ORBSb ie att -B-perip ¢ 3) 
ORBSL -OUNER ° St TB “DST EN G s 
“PROT. 16 . SLI-B-DT SLts g 
“PND. . att -B-peas G 
pcpst . tT B-REO RLEN g SI 
sone T7BSRCID G 
Soy DIS CONNE ° ato Re WARE > g 
io DS ei ° BT oe RE NARLEN ¢ 
PORT LENGTH . LTB-SRC=NARL 6 
PORT-SET LINE = SLI-B-STE> sg 
dA te : ot T-B- TYE G 
PORT non : SLT“CTATT. SLOT . ¢ 
PORT" XON s “ 


rE 
3 
“7 


68 
rn 


#09666 86 6 @ 
ween 
nw b 
e 
S., 
OrVnro 
a a 


3 


Sssssssu 
‘tata as 


eeneerrerernecereesese 


nu 
$6 
nae 
REUEaRETEGR 


ses 
i 


33 
6 
$6 
tat hes 
ad 
oe 
wn 


SLT 

SLT D 
SLT"DB_V-IFENA 
SLIbey-brew 
SLT"FLAG_A_BIND 
SLT"FLAG_M_LOGIN 
SLT"FLAG_M_REMOTE 
SLT"FLAG_S_BIND 
SLT“FLAG_S_LOGIN 
SLT"FLAG_S_REMOTE 
SLT-FLAG_V_BIND 
SLT"FLAG_V“LOGIN 
SLT"FLAG_V"REMOTE 
SLT-S_ATY_CEN 
SLT“S"ATT-SLOT 
SLT"S-08_CEN 
SLT"S$"0B- SLOT 
SLTUS_REJ_LEN 
SLT"S_REJ- SLOT 
SLT“S-START SLOT 
SLT“S-STP_LEN 
SLT“S-STP-SLOT 
SLT“ T"DATA 

SL TTTTREI-REAS 
aie ea 
SSS_IRSFRER 

SSS" NORMAL 
STOP_B_RCODE 
STOP-B-RLEN 
STOP- T0E 
STOP-T_REAS 
STRT-B-CIR_TIAR 
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XAT BACK 
XRT “DST 10M 
XMT"B-DSTIDS 

XAT B“RC, CHG FLAG 
XAT“B-AC~ IR-TIAER 
ant “RE=CUR-ECO 
XAT a “LEN 
XAT-B-ACo AWC 

XRT OVER 
XAT“B-RC-RUCTIAR 
Bi be tis 
XAT"B-AC~NUR_SVCS 
wAT-B-RC-RATE 
ei yn 
XAT“B-AC SVC LEN 
wat ASLO 
XAT "B-SEQ 
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XAT 
al R_ALL 
KT" CHFLG_M_CLAS 2 
AAT CHFLER-NDE SC : 
KT" CHFL 01 a = 
XAT _CHFLG_A_RAT = 
XAT _CHFLG AL C - 
XAT _CHFLG_A_SVCNAM = 
AAT “CHELE CS “GROW : 
KAT-CHFLG_S_NDE ‘ z 
XAT _CHFLG_S_OT = 
KAT _CHFLG_S_RAT z 
a A 9 SDESC s : 
XAT _CHFLG_S_SVCNAR = 
HT CHE —V_CLAS z 4 
XAT-CHFLG_V s 
KAT" CHFLG_V_NDESC = G 
KAT CHFLG_V"OTHER z 6 
KAT-CHFLG_V"~RAT z 6 
eat -tort -V-vtni = Sooppees § 
XAT-C_MORCER z 6 
XAT. TA = 6 
XAT. co] = ¢ 6 
mmr LENGTH = 
KAT"C"MC_SVC_SIZE = 
mAT_C OTAL = 
a s? 
KMT-T-DATA 
ES 
KAT~T-AC_RORE _ SVC G 
KAT_T WANE G 
xAT_T WOVE G 
ITU-T 10 ¢ 
KAT" W"AC_MSG_S1Z 6 
KAT" WU" SRTID G 
pewecowmeanoenaecce$} 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
S . 90000000 ¢ ?) ( 0.) WOPIC USR CON ABS 
0000282 ? ( 1.) NOP USR CON ABS 
. PROLOGUE DOODOODE ( ?) ( 2.) NOP USR ON REL 
115_ORIVER DOOOTBDF ( 7155.) ( 35.) MOPIC USR CON 
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SARetY Recro Run Statistics ee ee en Pe Sree 3 op 1382 17328: 3 LAT BUGSRE sorbriver. R.MAR; 1 ne tee 


PSPreEreon2ecn cee} 


H ; Performance indicators ! 


en aoemnoaans >} 


Phase CPU Time Elapsed Time 
Initialization :00:00. :00:02. 
Command procesting 1 :00:00. :00:05. 
Pass 1 4 :00:31. :01:40. 
— tebdle sort :00:03. :00:07. 
1 eee = 00:00. 00:00. 
ou : e : : e 
Psect synopsis eutput 00:00. :00:00. 
Cross-reference output :00:00. :00. 
Assembler run totals 167 :00:45. :23. 


ki imit wa Pe 
cr *tts) pages) of rtust T° \ memory were used ee puffer Ai intermediate ate soge; 
re wre * pages of symbol table space iy non Locet and local symbols. 
source ¢¢ wee were read in io 1, pr ng.$ ob a. y Read Pass 2. 
‘eeaee of virtual memory were used to define 97 macros. 
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: Macro library statistics ! 


p Sen re2cenranoones + 


Macro necro seantoners nase Macros defined 


“$255$0UA18:(LAT.O OBJ Lat -ALB; Hy 4 
tFSVS-0BJ TAR ; 
STARLET. fT AB: :3 9 
rbeS5t0un dott Tibrar es) 5 
2819 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LISS:L TORI VER/OBJ=0BJ$:LTDRIVER MSRC$:LTDRI VER/UPDATE=(BUGS:LTORIVER) +EXECMLS/LIB+LIBS:LAT/LIB 
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